
Christian Langfelder 


20 ausgewählte Routinen und 
Programme zum Veranschaulichen 
und üben allgemeiner Programmier- 
techniken auf cbm-Rechnem 
(cbm 8032) 
















fT|7 



















BASIC ohne Probleme 
Band 2: Übungen 











Christian Langfelder 


BASIC 

ohne Probleme 

• • 

Band 2: Übungen 


20 ausgewählte Routinen 
und Programme zum 
Veranschaulichen und Üben 
allgemeiner Programmier¬ 
techniken auf cbm- 
Rechnem (cbm 8032) 


Verlag Markt ^Technik 



CIP-Kurztitelaufnahme der Deutschen Bibliothek 


Langfelder, Christian: 

BASIC ohne Probleme / Christian Langfelder. — 
Haar bei München: Verlag Markt und Technik 
(Computer persönlich) 

Bd. 2. Übungen: 20 ausgew. Routinen u. Programme 
zum Veranschaulichen u. Üben allg. Programmier¬ 
techniken auf CBM-Rechnern (CBM 8032). — 1982. — 
ISBN 3-922120-26-1 


Die Informationen im vorliegenden Buch werden ohne Rücksicht auf einen eventuellen Patentschutz 

veröffentlicht. 

Warennamen werden ohne Gewährleistung der freien Verwendbarkeit benutzt. 

Bei der Zusammenstellung von Texten und Abbildungen wurde mit größter Sorgfalt vorgegangen. 
Trotzdem können Fehler nicht vollständig ausgeschlossen werden. Verlag, Herausgeber und Autoren können 
für fehlerhafte Angaben und deren Folgen weder eine juristische Verantwortung noch irgendeine 

Haftung übernehmen. 

Für Verbesserungsvorschläge und Hinweise auf Fehler sind Verlag und Herausgeber dankbar. 


ISBN 3-922120-26-1 

© 1982 by Markt & Technik, 8013 Haar bei München 
Alle Rechte Vorbehalten 
Einbandgestaltung: Grafikdesign Heinz Rauner 
Druck: Hofmann-Druck, 8900 Augsburg 
Printed in Germany 



Inhaltsverzeichnis 


Einleitung. 7 

Verwendung der Programmsammlung. 7 

Flußdiagramme. 8 

1. Allgemeine Routinen 

CURL . 11 

Textvergleich. 17 

Rundungs-Routine . 21 

2. Allgemeine Programme 

Kalenderprogramme. 27 

Vierspezies-Maschine. 35 

Sortierprogramm. 39 

Anagramm. 45 

3. Kommerzielle Programme 

Preiskalkulation. 51 

Fakturierung . 57 

Optimale Bestellmenge .... . 63 

Zinseszins-Rechnung. 69 

KURWEG. 73 

4. Statistik 

Balkendiagramm. 81 

Lineare Regression. 85 

5. Mathematik 

Primzahlen. 93 

Nullstellenbestimmung nach Newton-Raphson. 97 

6. Spiel- und Lehrprogramme 

Wortratespiel. 105 

Bagels . 111 

Matrix-Lehrprogramm. 117 


5 




































Einleitung 

Dieses Übungsbuch ist die Ergänzung zu dem im gleichen Verlag erschienenen 
Lehrbuch "BASIC ohne Probleme/Band 1: Unterweisung". Es enthält 20 Routi¬ 
nen und Programme, die vor allem den Anfänger in der Programmierung unter¬ 
stützen sollen, so rasch wie möglich seinen Rechner erfolgreich zum Einsatz zu 
bringen. Die Programme setzen sich aus einer Beschreibung, Bedienungsanwei¬ 
sungen, Beispielen, Anmerkungen und reichlich mit Kommentaren versehenen 
Programmprotokollen zusammen. Die Information wird, sofern sinnvoll und er¬ 
forderlich, durch Tips, Erläuterungen und Flußdiagramme ergänzt. Die Pro¬ 
gramme haben in erster Linie die Aufgabe, allgemeine Programmiertechniken 
zu veranschaulichen. Daher wurde auf besondere, wenn auch gewinnbringende 
Tricks und Techniken in dieser Sammlung verzichtet. 

Die Betonung liegt vielmehr auf den alltäglichen und daher besonders wichtigen 
Problemen in der Programmierung: die Behandlung und Verarbeitung von Ein¬ 
gabedaten, die Steuerung des Cursors, die Verwendung von Unterprogrammen 
und die Programmierung von Fehlerausgängen. 

Die Programme in diesem Buch sind in sechs Rubriken unterteilt: drei allgemei¬ 
ne Routinen, die auch in anderen Programmen zur Anwendung kommen, fünf 
allgemeine Programme, fünf kommerziell-technische Anwendungen, zwei Sta¬ 
tistikprogramme, zwei Mathematikprogramme und drei (hoffentlich spannen¬ 
de) Lehr- und Spielprogramme. Alle Programme können direkt in einen cbm- 
Rechner Modell 8032 eingegeben und gestartet werden. Für andere Rechner sind 
fallweise Anpassungen vorzunehmen. 

Verwendung der Programmsammlung 

Alle Programme in dieser Sammlung können direkt in einen Rechner vom Typ 
cbm 8032 eingegeben und ausgeführt werden. Das gilt auch für die Demonstra¬ 
tionsprogramme, die mehr dazu gedacht sind, einen bestimmten Ablauf oder ein 
besonderes Unterprogramm anschaulich darzustellen. Diese Routinen und Un¬ 
terprogramme sind in den Programmprotokollen mit Überschriften versehen, so 
daß sie leicht zu erkennen sind und aus dem eigentlichen Programm zur Ver¬ 
wendung an anderer Stelle herausgelöst werden können. 

Alle eigentlichen Programmanweisungen stehen in Programmzeilen, die in der 
niedrigsten Stelle eine "0" haben. REM-Anweisungen sind immer an erster Stel¬ 
le in einer Programmzeile zu finden, die in der niedrigsten Stelle eine 1, 2, ... , 9 
hat. Wer also vorzieht, seine Programme ohne Kommentare zu schreiben oder 
auf diese aus Platzgründen verzichten muß, kann die unerwünschten REM-An¬ 
weisungen leicht entfernen. 
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Es sei nochmals darauf hingewiesen, daß dieses Buch sich vorrangig mit Abläu¬ 
fen und Techniken in der Progammierung befaßt. Ein Basic-Handbuch kann 
und soll dieses Buch daher nicht ersetzen. Eine vollständige Behandlung des 
cbm-Basic (für Rechner vom Typ 8032) ist in dem Handbuch "BASIC ohne 
Probleme/Band 1: Unterweisung" zu finden. 


Flußdiagramme 

Eine übersichtliche grafische Wiedergabe eines Programmablaufs gehört zu jeder 
vollständigen Dokumentation. Flußdiagramme spielen dabei eine wichtige Rol¬ 
le, auch wenn sie den Nachteil haben, daß ihre Erstellung bei langen Program¬ 
men manchmal recht langwierig ist und der Aufwand dann nicht in einem be¬ 
sonders guten Verhältnis zu dem Nutzen steht. 

Für kurze Abläufe gelten beide Einschränkungen nicht. Weil in der Dokumenta¬ 
tion der in diesem Buch enthaltenen Programme zuweilen auf Flußdiagramme 
zurückgegriffen wird, seien an dieser Stelle die wesentlichen Elemente von 
Flußdiagrammen aufgeführt. 


Element 

CD 


Bedeutung 

Grenzstelle 



Verarbeitung 

Entscheidung/Verzweigung 

Unterprogrammaufruf 

Ein-/Ausgabe 

Connector/Übergangsstelle 

Informationsfluß 


8 













Allgemeine Routinen 










CURL 


In fast jedem Programm, das einen Dialogverkehr zwischen Anwender und 
Rechner erfordert, wird eine Methode der Cursor-Steuerung benötigt. Das Pro¬ 
gramm CURL (von CURsor und Löschen) bietet eine effiziente Methode der 
Cursor-Steuerung und baut gleichzeitig eine Lösch-Zeile auf, da auch das selek¬ 
tive Löschen von Bildschirm teilen in vielen praktischen Anwendungen zum gu¬ 
ten Programmkonzept gehört. 

CURL ist ein Demonstrationsprogramm, das in dieser Form nicht für den prak¬ 
tischen Einsatz gedacht ist. Es zeigt aber in sehr anschaulicher Weise, wie ein¬ 
fach es ist, eine bestimmte Stelle auf dem Bildschirm anzusteuern und ab dieser 
Stelle eine vorgegebene Anzahl von Zeichen auf dem Bildschirm zu löschen. 
Das Programm beginnt damit, die zehn obersten Zeilen auf dem Bildschirm mit 
einem grafischen Zeichen zu füllen. Mit drei Eingabeparametern werden dann 
Teile aus diesen horizontalen Balken herausgelöscht. 


Bedienungsanweisung 

1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. Programm starten (run RETURN drücken) 

3. Ausgabe der obersten zehn Zeilen als durchgehende Balken 

4. Eingabeaufforderungen: 

Reihe, Spalte, Löschzeilen-Länge 

durch entsprechende Eingabe beantworten 

5. Löschen des spezifizierten Balkenteils 

6. Rückkehr zur nächsten Eingabe in Schritt 4 


Anmerkungen 

1. Die Eingabe für jede Lösch-Operation wird absichtlich bei jeder weiteren Ein¬ 
gabe um eine Reihe tiefer gesetzt, damit die vorangegangenen Lösch-Ope- 
rationen protokolliert bleiben. 

2. Das Kernstück des Programms bildet eine Routine, die drei Zeichenketten 
aufbaut, je eine mit 25 Steuercodes für eine Cursor-Bewegung nach unten, ei¬ 
ne mit 80 Steuercodes für eine Cursor-Bewegung nach rechts und eine mit 80 
Leerzeichen. Durch die Ausgabe von Teilketten kann, relativ zur oberen lin¬ 
ken Bildschirmecke, jede Bildschirm-Position erreicht werden. 
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Beispiel 



Re i he, Spa. l+e, Loeschze i len-Laenge? 
Re i he, Spa l+e, Loeschze i len-Laen-ge? 
Re i heSpa l+e , Loeschze i len-Laenote ? 
Re i he , Spa l+e, Loeschze i len-Laen-^e? 
Re i he, Spa l+e, Loeschze i len-Laenge? 
Re i heSpa l+e, Loeschze i len—Laenge? 
Re i he, Spa l+e , Loeschze i len-Laenoie? 


2 , 3,4 
3 .r 4 .r 5 


4 , 5 , 6 
9 , 1>78 


6 .38.10 

6 . 42.10 


7 , 48,2 


Hinweise 

1. Mit ’print chr$(147)' wird der Bildschirm gelöscht (110) 

2. Die Zeichenketten '1$, cu$, cr$' müssen erst mit 'gosub 2110' aufgebaut wer¬ 
den, bevor sie verwendet werden 
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löl rem - 

102 rem titel: cur 1 - b i Idsch i rmsteuerun«) und loeschzei le 

103 rem - 

104 rem 

107 rem - 

108 rem Initialisierung: Cursor in linke obere ecke 

109 rem - 

110 pr i nt ehr $ 147 > ; s r 1 = 11 

117 rem - 

118 rem unterprogramm-autrut zur initialisierung der zeichenketten 

119 rem - 

120 gosub 2110 

127 rem -- 

128 rem hör izontal-skala und auttue l len der oberen bi Idschirm-ha.e Itt-e 

129 rem - 

130 tor i = 0 to 7: print tab< i#10> j? sprint i+10;snext iSprint 

140 tor .j = l to 10: tor i=0 to 79 sprint chr$0230> .s snext snext Sprint 

147 rem - 

148 rem eingabe: reihe., spalte und laenge der loeschzei le 

149 rem - 

158 r 1 =r 1 + i :r=r 1 :s=0 sgosub 2100 : input"Reihe,SpaIte r Loeschzei len-Laenge"r ,s, l 

157 rem - 

158 rem unterprogramm-autrut tuer die cursor-positionierung; loeschzei le 

159 rem - 

160 gosub 2100 sprint lett$< l$.» l> j sgoto 150 

2097 rem - 

2098 rem Unterprogramm : cursor-steuerung Cueber rl.,r.,sl ,,s) 

2099 rem - 

2100 pr i nt" lett$ < cu$r > lett$ C cr$ r s > .s s return 

2107 rem - 

2108 rem aut bau der zeichenketten tuer cursoi— Steuerung und loeschzei le 

2109 rem - 

2110 l$=" " :cu$="21" :cr$="U" stori = lto7 :cu$=cul+cu$ scr$=cr$+cr$ : l*= l*+ 1$ snexti 
2120 cu$= lett$ <cu$ r 25 > s cr$= lett$ < cr*80 > s l$= lett$ < 1$ , 80 > s return 

2130 end 
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Flußdiagramm 1 


Aufbau der Zeichenketten 


Zeile Anmerkungen 



2110 


2120 


U = Leerzeichen 
— = Cursor eine Spalte 
nach rechts 
l = Cursor eine Zeile 
vorrücken 


1$, cr$, cu$ auf 128 
Zeichen bringen 


1$, cr$, cu$ auf 80, 80 
und 25 Zeichen kürzen 
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Flußdiagramm 2 


Cursor-Steuerung 


Zeile Anmerkungen 



2100 Cursor in linke, obere 

Ecke 


Cursor um r Zeilen vor¬ 
rücken 


Cursor um s Spalten vor¬ 
rücken, Wagenrücklauf 
wird mit "j" unterdrückt 
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Textvergleich 


Beim Programmieren kommt es immer wieder vor, daß überprüft werden muß, 
ob eine Zeichenkette (der Prüfling) in einer anderen (dem Prüfmuster) enthalten 
ist. Wenn dies der Fall ist, interessiert häufig noch die Information, ab welcher 
Stelle im Prüfmuster die beiden Zeichenketten übereinstimmen. Als Beispiel 
sei hier auf die Verwendung von alphanumerischen Zeichen bei der Eingabe von 
rein numerischen Werten verwiesen. Mit der hier beschriebenen Routine kann 
in diesem Fall überprüft werden, ob die Eingabe einen Dezimalpunkt enthält 
und an welcher Stelle er steht. 

Das Programm besteht im wesentlichen aus einer Subroutine, die als Unterpro¬ 
gramm in anderen Programmen eingesetzt werden kann. Für Demonstrations¬ 
zwecke sind einige Texte (Prüfmuster) fest definiert, mit denen der Prüfling (die 
variable Eingabe) verglichen wird. Bei Übereinstimmung wird die Position im 
Prüfmuster sowohl optisch als auch numerisch angezeigt. 


Bedienungsanweisung 

1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. Programm starten (run RETURN drücken) 

3. Eingabeaufforderung: 

Prüfling 

durch entsprechende Eingabe beantworten 

4. Ausgabe des Prüfmusters, der Prüfmustemummer und der Position innerhalb 
des Prüfmusters, ab der eine Übereinstimmung mit dem Prüfling gefunden 
wurde 

5. Rückkehr zur nächsten Eingabe in Schritt 3 
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Beispiele 

Prüfling eile 
parzelle 4 5 
eile 

kellerkind 5 2 

eile 

Prüfling meran 
boomerang 1 4 

meran 

Prüfling eis 
beispiel 2 2 
eis 

leistung 3 2 
eis 


Hinweise 

1. Das Unterprogramm, das den Textvergleich vornimmt, schreibt den Wert 'x' 
zurück. Wenn dieser Null ist, wurde keine Übereinstimmung gefunden 
(150). Wenn 'x' ungleich Null ist, wird der Wert zur Cursor-Steuerung in 
'print tab (x)' hergenommen, um Stammkette und Teilkette untereinander 
auszudrucken (170). 
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101 rem - 

102 rem titels textuerg leich 

103 rem - 

104 rem 

107 rem - 

108 rem text-det i n i t i onen 

109 rem - 

110 a$< 1 > = "boomerang" : b :$ t;2> = "beispie 1" :a/t-<3> = " leist-ung '' 

120 a.$ < 4 !:• = " parze 1 Le " : a$ < 5 > = " ke l lerk i nd " ; b:$ < 6 > = " rang i erung " 

127 rem - 

12S rem eingab© des pruet lings 

129 rem - 

130 print:input"Pruet 1 ing " jt b$:print 
148 tor i=ito6!al s a$(i> 

147 rem - 

148 rem unterprogramm-autrut: wenn x=ü dann keine uebereinst immung 

149 rem - 

150 gosub 500sit x=© then 180 

157 rem - 

158 rem ausgabe s prue+ling., prue+muster und Position 

159 rem - 

160 p r i n t a$ ; i .s x 

170 pr i nttab < x- 1 > ? b$ : pr i nt 
188 nextisgoto 130 

496 rem - 

497 rem Unterprogramm zur ueberpruetungob eine tei lkette b$ 

498 rem mo 1 Istaendig in einer zeichenkette a.t enthalten ist 

499 rem - 

580 tor x=l to lerKa$>-- len<fo$>+l 

510 i t b$~m i d$ < < a£ > x .r len < b$ > > then return 
52© next x :x=0 s return 
530 end 
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Flußdiagramm 


Vergleich von a$ und b$ 


Zeile Anmerkungen 



500 


510 


520 


Der Textvergleich be¬ 
ginnt mit der ersten 
Stelle des Prüfmusters 


Abfrage, ob Prüfling b$ 
über seine volle Länge 
(len(b$)) in Prüfmuster 
a$ ab Position x enthal¬ 
ten ist 


Abfrage, ob x gleich y 
(y = len(b$)-len(a$) + 1 


Keine Übereinstimmung 
von Prüfling und Prüf¬ 
muster 
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Rundungs-Routine 


Es ist häufig wünschenswert, ein numerisches Ergebnis nicht mit voller (viel¬ 
leicht neunstelliger) Genauigkeit zu verwenden, sondern die signifikanten Zif¬ 
fern auf eine bestimmte Anzahl zu begrenzen. Dieser mit Rundung bezeichnete 
Prozeß verbessert nicht nur die Optik einer Ausgabe, sondern wird auch dann 
benötigt, wenn es gilt, eine Zahl vor ihrer weiteren Verwendung in eine entspre¬ 
chende Form zu bringen. Das ist dann beispielsweise der Fall, wenn ein Ergeb¬ 
niswert als Index, also als ganzzahliger Wert, verwendet wird. Hier genügt be¬ 
kanntlich die INT-Funktion nicht, weil diese lediglich den Dezimalteil einer 
Zahl abtrennt, ohne ihn vorher hinsichtlich seines Beitrags zu überprüfen. 


Zur Rundung wird die Formel 
X = INT(Y ★ lOtZ + 0.5)/10 tZ 
verwendet, wobei 

Y = die zu rundende Zahl 
Z = die Position der letzten signifikanten Ziffer 
(relativ zum Dezimalpunkt) 

X = das Ergebnis 

bedeuten. 


Die Wirkung der Formel läßt sich am besten anhand eines Beispiels verfolgen. 

Als Eingabe seien die Werte 

Y = 456.617 
Z = 0 

angenommen. 


Schrittweise ergibt sich folgender Ablauf 

INT(456.617^1 + 0.5J/1 (lOtO = 1) 

INT(456.617 + 0.5J/1 

INT(457.117)/1 

457/1 

457 


21 


Bedienungsanweisung 

1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. Programm starten (run RETURN drücken) 

3. Eingabeaufforderungen: 

Zu rundende Zahl: 

Anzahl Stellen: 

durch entsprechende Eingaben beantworten 

4. Ausdruck der Ergebniswerte 

5. Rückkehr zur nächsten Eingabe 


Anmerkungen 

1. Die Rundungs-Routine erfüllt als selbständiges Programm nur einen Demon¬ 
strationszweck. Die Routine ist vielmehr als Unterprogramm gedacht. Das 
Unterprogramm wird mit der zu mndenden Zahl und der gewünschten An¬ 
zahl von signifikanten Stellen versorgt. Wenn, wie bei DM-Beträgen, immer 
in der zweiten Stelle nach dem Komma gerundet werden soll, kann dieser Pa¬ 
rameter (im Programm mit 'z' angegeben) als Konstante eingesetzt werden. 

2. Die Routine eignet sich auch für den Fall, daß mehrere Daten (allerdings 
dann nicht mit voller Genauigkeit) in einem Datenwort gepackt werden sol¬ 
len. Erst werden die Zahlen auf die gewünschte Länge gebracht, dann mit 10 
oder einem Vielfachen von 10 multipliziert und zu einer zweiten zu spei¬ 
chernden Zahl addiert. Bei der Entschlüsselung wird der Ablauf umgekehrt. 
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Beispiele 


Zu rundende Zahl: ? 456.617 
Anzahl Stellen: ? 2 

456.62 456.617 


Zu rundende Zahl: ? 456.617 
Anzahl Stellen: ? 1 

456.6 456.617 


Zu rundende Zahl: ? 456.617 
Anzahl Stellen: ? 0 

457 456.617 


Zu rundende Zahl: ? 456.617 
Anzahl Stellen: ? —2 

500 456.617 


23 


1001 rer»- 

1002 rem titel: rundungs-routine 

1003 rem - 

1004 rem 

1007 rem - 

1008 rem loeschen des bi Idschirms und eingabetei 1 

1009 rem - 

1010 print chr$<147> 

1020 inr>ut"Zu rundende Zahl 1: ";y 
1030 inpuffinzah l Stellen : " ;z 
1040 x= int<y*10ftz + 0.5>/<10Äz> 

1047 rem - 

1048 rem ausgatae der gerundeten und der urspruengliehen zahl 

1049 rem - 

1050 pr i nt: pr i ntx , r y : pr i nt 
1060 goto 1020 

1070 end 
ready. 
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2 . 

Allgemeine Programme 








Kalenderprogramme 


Zwei Unterprogramme, die zusammen oder auch getrennt verwendet werden 
dürfen, erlauben die Umwandlung eines Datums in eine Julianische Tageszahl 
und ihre Rückwandlung, die Berechnung der Anzahl von Tagen zwischen zwei 
Daten oder eines zukünftigen Datums, wenn ein Anfangsdatum und die Anzahl 
dazwischenliegender Tage bekannt ist, und die Ermittlung des Wochentags zu 
einem gegebenen Datum. 

Das Programm überprüft, ob das eingegebene Datum ein zulässiges Datum dar¬ 
stellt. So werden nicht nur der 31. Juni 1982 oder 29. Februar 1983 abgelehnt, 
sondern auch das Eingabeformat muß genau eingehalten werden. Als Begrenzer 
zwischen den Zifferngruppen sind alle nichtnumerischen Zeichen zugelassen. 
Bei der Ausgabe wird als Begrenzer immer ein Punkt verwendet. 

Bei der Eingabe des Datums muß das Format 'tt.mm.jj' eingehalten werden. 
Den Umwandlungsroutinen liegen folgende Formeln zugrunde: 


A. Berechnung einer Julianischen Tageszahl 


JTZ = INT(365.25^JJ) + INT(30.6001^MM) + tt 


mit den Bedingungen 


JI 

MM 


jj 

jj -1 

mm 
mm + 


wenn mm > 
wenn mm = 

wenn mm > 
13 wenn mm = 


2 

1 oder mm = 

2 

1 oder mm = 


2 

2 


wobei 


JTZ Julianische Tageszahl 
tt Tag 
mm Monat 

jj Jahr (ohne Angabe des Jahrhunderts) 


bedeuten. 
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B. Berechnung eines Tagesdatums zu einer gegebenen JTZ 

JJ = INT((JTZ — 122.1J/365.25) 

MM = INT((JTZ — INT(365.25 ★ JJ)) /30.6001) 
tt = JTZ - INT(365.22^JJ) - INT(30.6001i*rMM) 
mit den Bedingungen 

mm = MM — 13 wenn MM = 14 oder MM = 15 
= MM — 1 wenn MM < 14 

jj = JJ wenn mm > 2 

= JJ + 1 wenn mm = 1 oder 2 oder mm = 2 

Für die Berechnung des Wochentags zu einem gegebenen Tagesdatum gilt die 
Beziehung 

Wochentag (als Zahl im Bereich 0 bis 6) = 7^(JTZ/7 — INT(JTZ/7)) 


Bedienungsanweisung (Kalenderprogramm 1) 

1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. Programm starten (run RETURN drücken) 

3. Eingabeaufforderungen: 

1. Datum 

2. Datum 
Anzahl Tage 

durch entsprechende Eingabe beantworten 

4. Ausdruck des Ergebnisses 

5. Rückkehr zu Schritt 3 für die nächste Eingabe 
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Bedienungsanweisung (Kalenderprogramm 2) 

1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. Programm starten (run RETURN drücken) 

3. Eingabeaufforderungen: 

1. Datum 

durch entsprechende Eingabe beantworten 

4. Ausdruck des Ergebnisses 

5. Rückkehr zu Schritt 3 für die nächste Eingabe 


Beispiel (Kalenderprogramm 1) 

Das Kalenderprogramm 1 löst die Gleichung 
Datum 1 — Datum2 = Anzahl Tage 

Das Datum wird in dem Format tt.mm.jj eingegeben. Die Eingabeaufforderung 
für den gesuchten Wert wird mit der Taste RETURN (leere Eingabe) quittiert. 

1. Datum 
23.05.82 

2. Datum 

Anzahl Tage 
1000 

23.05.82 — 1000 — 16.02.85 

1. Datum 
23.05.82 

2. Datum 
23.05.83 

Anzahl Tage 

23.05.82 — 365 - 23.05.83 
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Beispiel (Kalenderprogramm 2) 


Das Kalenderprogramm 2 ermittelt zu einem in dem Format tt.mm.jj eingegebe¬ 
nen Datum den zugehörigen Wochentag. 

1. Datum 
26.05.82 

Mittwoch 

1. Datum 
25.12.82 

SonnaDenr 


Anmerkungen 

1. Das Format 'tt.mm.jj' soll die Eingabe des Datums, besonders bei kommer¬ 
ziellen Anwendungen, erleichtern. Der Algorithmus arbeitet mit der vollen 
Jahreszahl. 

2. Nach der Rückkehr aus dem Unterprogramm 1 (Berechnung der JTZ) wird in 
einer Variablen vermerkt, ob bei der Eingabe die Bedingungen für ein zulässi¬ 
ges Datum eingehalten wurden. 


Hinweise 

1. Wenn von drei möglichen Eingaben maximal zwei gleichzeitig zugelassen 
sind, muß vermerkt werden, welche Eingaben getätigt wurden (180-200). Je 
nach Eingabe nimmt 'p' die Werte 1, 2 oder 3 an, der dann für eine verteilte 
Verzweigung verwendet werden kann. 

2. Die Anweisung 'p = 3—p' (270) für p = 1 oder 2 wandelt den Wert p in 2 bzw. 
1 um. 
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181 rem--- 

10 2 rem t i t e 1 s k a 1 e n d e r p r o g r am m 1 

103 rem - 

1Ö4 rem 

107 rem - 

108 rem initialisierung s open 1,0 Tuer input# : programm—kurzbeschreibung 

109 rem - 

110 print chr$<147>: open 1,0 

120 prinf'Das Kalenderprogramm 1 loest die G leichung" Sprint 
130 print"Datum 1 - Datum2 = Anzahl Tage" spring 

140 print"Das Datum wird im dem Format tt.mm.Jj eingegeben. Die" 

150 print"Eingabeaufforderung -tuer den gesuchten Wert wird mit" 

160 print"der Taste RETURN < leere Eingabe> guittiert" 

170 print:print s p=0:g=-1 

177 rem - 

178 rem eingabeteil s bei richtiger eingabe nimmt p werte von 1, 2 oder 4 an 

179 rem - 

1 80 pr i nt" 1. Datum " : i nput# 1, x* < 1 > : pr i nt : pr i nt s i t len < x* < 1 > > =0 then p=p+2 
190 p r i nt" 2. Datum " sinput# 1, x* 2 > s pr i nt s pr i nt s i T Len < x* < 2 > > = ö then p=p +1 s g= 1 
200 pr i nt" Rnzah 1 Tage " : i nput# 1, x* <■'. 3 > : pr i nt: pr i nt s i T len < x* < 3 > > =0 then p=p+4 

207 rem - 

208 rem verteilte Verzweigung: Fehlermeldung bei unzulaessiger eingabe 

209 rem - 

218 on p goto 240, 240, 220, 280 

220 print"FaIsche Eingaben": goto 170 

227 rem - 

228 rem p = 1 oder 2: gesucht wird datum1 oder datum2: g = 1 oder -1 

229 rem - 

240 it len(x$(p>K>8 then goto 320 

250 gl *=x* < p > : gosub 1108 : i t g8 < 8 > =8 then 318 
268 g0 4 > =g8 < 4 > +va 1 •:! x* < 3 > .•» Tg: gosub 1380 
278 let p=3-p: x*<!p> = gl*: goto 320 

277 rem- e - 

278 rem p = 4: gesucht wird anzahl tage zwischen zwei daten 

279 rem - 

280 i t len<x*< 1 > >O 8 or len<x$<2> >08 then 328 

298 gl*=x* < 1>:gosub 1188:g=g8 <4 > :it g8 <8>=8 then 320 

388 gl*=x*< 2 >:gosub 1108:x* <3 >=str$Cgö<4 >-g>:it g8 <8 >=8 then 328 

310 goto 338 

317 rem - 

318 rem teh lernte Idung: datum—Tormat tt.mm.Jj nicht eingehalten 

319 rem - 

328 print"Falsches Format" : goto 178 

327 rem - 

328 rem ausgabe—aniueisung: ruecksprung—ajnweisung tuer naechstes bei spiel 

329 rem - 

338 print x*<l>" ~ "x*C3>" - "x*<2>:printsgoto 178 

348 end 
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i i 00 -for i=1to3: let*H0 < i > =•...• a. 1 •:! m i dt •:! h 11i -1 > *3+1 2 > > s next i 
lllü h 0 < 0 > = 1 : tor i = 1 to8 s H0 < 4 > = i nt <■'. < asc < m i dt < Hl t - i , 1 > > +2 > / 1Ö > -4 
1120 it < i =3or i =6 > and«i©< 4 > = 1 thenn© < 0 > =8 
1130 i t <; i 03and i 06 > an d«i0 4 > 01 thenn© < 0 > =8 
1140 next i : i=ü:it i nt < H0 *; 3 > /4 > =H0< 3 > /4then i = 1 
1150 i *H0 < 2 > «2andn® < 1 > >28+ i thenn© «'.i 0 > =8 

1168 i*H0< 1 »31orct0<2Xlor<Ji0<2»12oroi8<3><78thenci0<0>=8 
1170 i t < -H0 < 2 > =4or h© < 2 > “6 > an dn© < 1 > >3©thenn© <. 0 > =0 
1180 i t <: Ciö < 2 > =9orn0 < 2 > = 11 > andern 1 > >30ther«H0 < 0 > =0 
1190 i +o(0 < 2 > 01 and «10 < 2 > 02then 1210 
1208 «i8 < 3 > ««10 3 > -1 a -HÜ < 2 > «h© 2 > +12 
1210 H0 < 3 > «H0 < 3 > +1908 s c t 0 c. 2 > «h© < 2 > +1 

1220 h© '• 4 > « i nt < 365.25*h 0 < 3 > > + i nt < 30. 6801 *h© <; 2 > > +H0 < 1 > : return 
1300 h© 3>" i nt •:! < hü < 4 > -122. 1 > /365. 25 > 

1310 -H0 < 2 > « i nt < < h© < 4 > - i nt < h0 < 3 >*365. 25 > >/38. 6881 > 

1320 «i© •:! 1 > =-h 0 < 4 > - i nt < H0 < 3 > *365.25 > - i nt < h© < 2 > *38. 6881 > 

1330 i t*H0 < 2 > «14 or h© < 2 > = 15thenn© < 2 > «h© < 2 > -12 
1340 *H0< 2 > =H0 < 2 > -1 s i +ciö C 2 > = 1 or«i© < 2 > «2then«i0 < 3 > =H© 3 > +1 
1358 Hlt=""sitH0 C1><10thencU t-"0" 

1368 Hl t=H 1 t+rn i dt < str* < H0 '• 1 > > , 2 > + " . " : i *H0< 2 > < 1 üthenn 1 t=H 1 *+ " 0 " 

1378 Hl $=Hl t+ru i dt < strt '•! h 0 < 2 > > 2 > + " . " +ni i dt strt •:! h 0 3 > -1988 > 2 > : return 
ready« 
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101 rem - 

102 rem kalenderProgramm 2 

103 rem - 

104 rem 

107 rem - 

108 rem initialisierung: open 1,0 -fuer input#: programm-kurzbeschreibung 

109 rem - 

110 t$ <0 > = "Frei tag " s t-$ < 1 > = " Sonnabend " s t$ < 2 > = " Sonntag " s t$ < 3 > = " Montag " 

120 t* <4>«"Dienst-ag" :t*<5> as "Mittwoch" :t$<6> = "Donnerstag" 

130 print ehr$<147 > : open 1,0 

140 prinf'Das Kalenderprogramm 2 ermitttelt zu einem in dem Format" 

150 pr i nt" tt. mm. .j ._i e i ngegebenen Datum den zugehoer i gen Wochentag " pr i nt: pr i nt 

157 rem - 

158 rem eingebe und ueberpruetung des da.tums 

159 rem - 

160 print"1. Datum";input#1, x$ <1> s print:print 
170 it ler.(x$(l>K>3 then goto 210 

180 gl < 1 ') : gosub 1100 : i t g0 < 0 > =0 then 210 

187 rem - 

188 rem berechnung des Wochentages als zahl zwischen 8 und 6 

189 rem - 

190 p=g.0 < 4 > /7 : g=i nt •:! < <p-int •:! p > > *7 > +. 5 > > 

208 print t$(q)sprint goto 168 

287 rem--- 

288 rem -Fehlermeldung: datum—Format tt.mm.jj nicht eingehalten 

289 rem - 

210 prinf'Falsches Format"s goto 168 

228 end 
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1001 


1002 rem Umwandlung eines tacjesdatums in eine Julianische tageszahl und 

1003 rem rueckwand lung einer ju lianisehen tageszah l in ein tagesdatum 

1Ö04 rem - 

1005 rem 

1097 rem - 

1098 rem Umwandlung eines d atu ms <tt.mm.JJ> in eine Julianische tageszah l 

1899 rem - 

1100 tor i = l to3 : letg© < i > =va l < m i d$< gl •$ , < i -1 > *3+1,2 > > :next i 

1110 g©<0> = 1 :tori=lto8:g0<4>=int<<asc<mid$<gl$.r i , 1 > > +2 >/10>-4 
1120 i t < i =3or i =6 > andg© < 4 > = 1 theng© < 0 > =0 
1130 i t< i <>3and i 06 > an dg© < 4 > 01 theng© < 0 > =© 

1140 next i : i =0 : i t i nt < g© < 3 >/4 > =g0 < 3 >/4ther. i = 1 
1150 itg©<2 > =2andg0<1> >28+itheng©<0> =© 

1160 itg©< 1 >>31 orgO<2X1 org0<2>> 12org©<3><781heng0<© > =© 

117© it <g0< 2 >=4org©<2 >=6 >andg©<1> >3©theng0<0 > =© 

1180 it<g©< 2 > =9orgO<2> = 11 >andg01 >>30theng0<0> =© 

1190 itg0< 2 > 01andg0< 2 ><>2then121© 

120© g0<3> =g0< 3 > -1 :g0* 2 > =g0< 2 > +12 
1210 g0<3>=g0<3>+1900:g0<2>=g©<2>+l 

1220 g© < 4 > = int 0365.25*g0<3 > > + int <3©.60©1*g©< 2 > > +g©<1>:return 

1297 rem - 

1298 rem umwand lung einer Julianischen tageszahl in ein datum <tt.mm.JJ> 

1299 rem - 

1300 g0<3>“int<<g©<4>—122.l>/365.25> 

131 © g0 < 2 > = i nt < < g0 < 4 > - i nt < g© < 3 > *365. 25 > > /30. 60© 1 > 

1320 g© <1>=g0<4 >-int <g© < 3>*365.25 >-int<g0< 2 >*30.6001> 

1330 itg©<2> = 14org0<2> = 1Stheng©<2>=g0<2>-12 
1340 g0< 2 > =g0<2 >-1sitg0 <2 > = 1org0< 2 >=2theng0< 3 >=g©<3 > +1 
1350 gl $= " " s i tg0 <1X1 ©thengl $= "0 " 

1360 gl $=gl*+mi d$ < str$ < g© < 1 > > . r 2 > + " . " s i tg0 (2X1 Othengl $=gl $+" 0 " 

137© gl$=gl$+mi d*< str$ <g0< 2 > X 2 > + " . " +mid$ <str$<g0< 3 >-1900> , r 2> s return 
138© end 
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Vierspezies-Maschine 


Es gibt keinen Grund, einen leistungsfähigen Rechner nicht auch für "niedrige¬ 
re" Arbeiten einzusetzen, sofern sich dabei Vorteile gegenüber herkömmlichen 
Methoden ergeben. 

Der Rechner als Vierspezies-Maschine ist eine typische kleine Anwendung. Der 
Anwender gibt einen Wert ein, der gemäß dem eingegebenen Operator (+ /—, 
★ , :) mit einem Faktor verknüpft wird. Das entspricht einer Lösung der Glei¬ 
chung 

y = a ★ x + b * 
wobei 
x 

y 

a = 1, b = Faktor 
b = 0, a = Faktor 
b = 0, a = 1/Faktor 

darstellen. 

Das Endergebnis kann noch auf Wunsch gerundet werden. 


Eingabewert 

Endergebnis 

bei Addition und Subtraktion 
bei Multiplikation 
bei Division 


Bedienungsanweisung 

1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. Programm starten (run RETURN drücken) 

3. Eingabeaufforderungen: 

Faktor 

Operator 

Rundung 

durch entsprechende Eingaben beantworten 

4. Die Eingabeaufforderung: 

Eingabewert 

durch eine entsprechende Eingabe beantworten bzw. die Serie durch 
RETURN (leere Eingabe) beenden 

5. Rückkehr zur nächsten Serie in Schritt 3 
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Anmerkungen 

1. Das Programm verwendet die Eigenschaft der INPUT # -Anweisung, daß 
durch eine leere Eingabe das Programm nicht auf Ende läuft, sondern normal 
fortgesetzt wird, sofern sich der Cursor an der Anfangsposition einer Zeile be¬ 
findet. 

2. Für die Rundung des Ergebniswertes wird die im Programm "Rundungs- 
Routine" beschriebene Konstmktion verwendet. 


Beispiel 


Dieses Programm erlaubt die Verknüpfung eines Eingabewertes mit einer Kon¬ 
stanten. Die Art der Verknüpfung wird durch die Wahl des Operators (+ / — ★ :) 
bestimmt, wobei "1" für " + "2" für und " 3 " für verwendet 

wird. Die Anzahl der signifikanten Stellen im Endergebnis wird mit einem Para¬ 
meter gesteuert. Durch Drücken der Taste RETURN ohne Eingabewert wird ei¬ 
ne Serie beendet. 


Faktor 12 

Eingabewert 

14 

56.789 

1.111 

21.21 

Faktor 10 

Eingabewert 

123.456 

23.007 

12.09 

99 

Faktor 20 

Eingabewert 

12.89 

12.45 

-34.749 


Operator 2 


170 

680 

10 

250 

Operator 3 


12.35 

2.3 

1.21 

9.9 

Operator 1 


Rundung 1 


Rundung 2 


Rundung 0 
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33 

32 

—15 


löl rem 


102 rem vierspezies-rechner mit konstantem taktor und waehlbarer rundung 

103 rem - 

104 rem 

107 rem-- 

103 rem initialisierung: open 1,0 tuer inputtts programm-kurzbeschreibung 

109 rem - 

110.print chr$<147 >: open 1,0s print 

121 print"Dieses Programm erlaubt die Verknueptung eines Eingabewertes" 

122 pr int "mit einer Konstanten. Die firt der Verknueptung uiird durch die" 

123 print"Wah l des Operators <+/- * : > bestimmt , wobei 'T tuer •'+/-'," 

124 print"'2' tuer und '3' tuer " :- r verwendet wird. Die Anzahl der" 

125 print"der signitikanten Stellen im Endergebnis wird mit einem Para-" 

126 prinf'meter gesteuert. Durch Druecken der Taste RETURN ohne Eingabe-" 

127 print"wert wird eine Serie beendet" 

167 rem - 

168 rem eingabetei l : t a= taktor, op=operator, ru=rundung 

169 rem - 

170 pr i nt: pr i nt" Faktor " ; : i nput# 1ta: pr i nt spc < 2 > ; 

180 pr i nt" Operator " ; : i nput# 1., op : pr i nt spc •:! 2 > ; 

190 pr i nt" Rundung " ; s i nput# 1., ru : pr i nt: pr i nt 

197 rem - 

198 rem aut bau des ausdrucks a* x •+• b 

199 rem - 

2010 b=0 : a= 1 s i t op <2 then b=ta: goto240 

210 a=ta:it op=3 then a=1/a 

237 rem - 

238 rem eingabeteil tuer die variable x; wenn x=0 dann ende der serie 

239 rem - 

240 print"Eingabewert" 

250 input#l,x:it x=8 then 170 

267 rem - 

268 rem berechnung und rundung von a # x + b 

269 rem - 

270 y=int<<atx+b>tl0»ru+.5>/int<10$ru> 

277 rem - 

273 rem berechnung der druckposition und ausdruck des endergebnisses 

279 rem - 

280 print tab <22- len < str$<int <y>*10 > > >;y 
290 goto 250 

300 end 
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Flußdiagramm 


Aufbau von f = a^x + b 


Zeile Anmerkungen 



200 


210 


Voreinstellung von 
a und b 


Bei 'op' kleiner als 2 
wird b gleich 'fa' gesetzt 


a wird gleich 'fa' gesetzt 


Bei 'op' gleich 3 wird 
a gleich 1/a gesetzt 
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Sortierprogramm 


Für einige Aufgaben ist der Rechner durch Eigenschaften wie hohe Arbeitsge¬ 
schwindigkeit und die Handhabung iterativer Abläufe geradezu prädestiniert. 
Zu diesen Aufgaben zählt auch das Sortieren von Information, was sich schon an 
der großen Vielfalt von Sortierprogrammen erkennen läßt. 

Das hier vorgestellte Insertion-Sortierprogramm stellt für Datenmengen von bis 
zu 20 Elementen ein optimales Verfahren dar. Es läßt sich natürlich auch für 
größere Datenmengen verwenden, wenn die Sortierzeit nicht von ausschlagge¬ 
bender Wichtigkeit ist. 

Die Insertion-Methode geht von einer bereits sortierten Sequenz aus, in die ein 
weiteres Element eingefügt wird. Eine aus n Elementen bestehende Datenmen¬ 
ge ist also nach maximal n-1 Einfügungen sortiert. 


Bedienungsanweisung (Sortierprogramm 1 — numerische Daten) 

1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. Programm starten (run RETURN drücken) 

3. Eingabeaufforderung: 

Anzahl Werte (n > 1) 

durch entsprechende Eingabe beantworten 

4. Ausgabe der unsortierten Datenelemente 

5. Ausgabe der sortierten Datenelemente 

6. Anzeige der Sortierzeit (in Sekunden) 

7. Rückkehr zur nächsten Eingabe in Schritt 3 


Bedienungsanweisung (Sortierprogramm 2 — alphanumerische Daten) 

Mit Ausnahme von Schritt 4 ist der Programmablauf mit dem von Sortierpro¬ 
gramm 1 identisch. Dieser lautet hier 

4. Eingabe der zu sortierenden Zeichenketten 
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Anmerkungen 

1. Für das Sortieren von numerischen Daten und alphanumerischen Größen lie¬ 
gen zwei verschiedene Fassungen des Programms vor. Während Zeichenket¬ 
ten nur als solche behandelt werden können, ist es durchaus zulässig, Zahlen 
als Zeichenfolgen einzugeben und diese dann mit dem Sortierprogramm für 
Zeichenketten zu sortieren. Gegebenenfalls müssen die Zahlen vorher mit 
der STR$-Funktion erst in alphanumerische Werte umgewandelt werden. 

2. Die in den numerischen Beispielen verwendeten Daten wurden mit dem Zu¬ 
fallsgenerator des Rechners erzeugt. Um die Ausgabe auf dem Bildschirm so 
übersichtlich wie möglich zu gestalten, wurden die Zahlen auf den Einserbe¬ 
reich beschränkt. 

3. Um die Sortierdauer zu messen, wurde die TI-Funktion des Rechners vor und 
nach dem Sortiervorgang aufgerufen. Damit läßt sich ganz deutlich das nicht¬ 
lineare Verhältnis zwischen der Anzahl der zu sortierenden Elemente und der 
Sortierzeit demonstrieren. 


Beispiele (Sortierprogramm 1) 

Anzahl Werte (n > 1) ? 20 

99849142450619803603 

00011233444566889999 

Sortierzeit 2.6 Sekunden 

Anzahl Werte (n > 1) ? 25 

6337365463426336309998737 

0233333333445666667778999 

Sortierzeit 4.1 Sekunden 

Anzahl Werte (n > 1) ? 10 

1672361119 
1111236679 

Sortierzeit .733333333 Sekunden 
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Beispiel (Sortierprogramm 2) 

Anzahl Werte (n > 1) ? 7 

? peter 
? paul 
? Peter 
? Paul 
? Quitte 
? Zitter 
? ende 

ende 

paul 

peter 

Paul 

Peter 

Quitte 

Zitter 

Sortierzeit 0.4 Sekunden 
Anzahl Werte (n > 1) ? 


Hinweise 

1. Mit der Anweisung ; dim a(n)' (130) wird die Größe des Feldes a dynamisch 
festgelegt. Damit diese Anweisung wiederholt ausgeführt werden kann, muß 
das Programm jedesmal mit einer RUN-Anweisung gestartet werden (160). 

2. Die Variable 'ti' (150) ist eine Systemvariable, in der das System die verstri¬ 
chene Zeit nach Einschalten des Geräts absetzt. 
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ICH rem- 

102 rem titels sortierprogramm 1 < insertion-sort ierung} 

103 rem - 

104 rem 

107 rem - 

108 rem intialisierung 

109 rem - 

110 print chr-K 147> 

117 rem - 

118 rem eingabe der te Id-groesse n 

119 rem - 

120 print: input"Rnzsh 1 Werte < n > 1 > ";nSprint 
130 dim a<n> 

137 rem - 

138 rem erzeugung uon n pseudo-zutal Iszah len 

139 rem - 

140 +ori = 1 to n s a< i> = int <rnd <8 > *10>:nextis gosub 500 

147 rem - 

148 rem zeitnehmung und unterprogramm-autrute 

149 rem - 

150 let t=ti : gosub 1100s t=ti-t: gosub 500 
160 print"Sortierzeit "t/SQ" Sekunden"s run 120 

497 rem - 

498 rem Unterprogramms ausgabe der teldelemente a<n> 

499 rem - 

500 tor1=1ton:printa< l >;s next l s print s return 

1097 rem - 

1098 rem Unterprogramms insertion-sortierung der e lemente von a<n> 

1099 rem - 

1100 tor i=lto n-1 
1110 tor j = l to i 

1120 it a<i+1>>=a<j>thenl140 

1130 m=aC i + 1 > s t-ork= i + 1 to..i step-1 saCk >=a< k-1 > : nextk : a< .j > =m s ._i = i 
1140 next J:nexti:return 
1150 end 
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löl rem - 

102 rem titel: sortierprogramm 2 < insertion-sortierung> 

103 rem - 

104 rem 

107 rem - 

108 rem i nt i a. I i s i erung 

109 rem - 

110 print chr$<147> 

118 rem eingabe der teId-groesse n 

119 rem - 

120 print s input"Anzahl l Werte < n > 1 > " ;n :pr int 
130 dim a*<n> 

138 rem eingabe der zeichen-ketten 

139 rem - 

140 tor i = l to ns in put a.t < i > : next i 

147 rem - 

148 rem zeitnehmung und unterprogramm-autrute 

149 rem--- 

150 let t=ti : gosub 1100: t=ti-t: gosub 500 

160 prinf'Sortierzeit "t/60" Sekunden": run 120 

497 rem - 

498 rem Unterprogramm : aus gäbe der te Ide lemente a< n > 

499 rem - 

580 pr i nt s tor 1= 1 to n s pr i nta:l < 1 > : next l: pr i nt: return 

1097 rem - 

1098 rem Unterprogramm : insertion-sortierung der elemente uon a£<n> 

1099 r em - 

1100 tor i=1to n—1 
1110 tor .j = l to i 

1120 i t a$ < i +1 > >=a$ < .j > then 1140 

1130 m$=a.$ < i +1 > : tork= i +1 tojstep-1 : a.$ k>=a.$ < k-1 > : nextk : a.t < .j > =m$ : ..i = i 
1140 next .j : next i s return 
1150 end 
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Flußdiagramm 

Insertion-Routine 



Zeile 

1100 


1110 


1120 


1130 


1140 


Anmerkungen 
Zu sortieren sind n Felder 


Ein neues Element wird 
mit den bereits sortierten 
Elementen verglichen 


Ein neues Element wird 
nicht eingefügt, wenn es 
größer als die bereits sor¬ 
tierten Elemente ist 


Das neue Element wird 
zwischengespeichert 


Das sortierte Feld wird 
ab dem j-ten Element 
um eine Position ver¬ 
schoben 


Das zwischengespeicher¬ 
te Element wird in den 
sortierten Bereich einge¬ 
fügt 

Ende der j- und i- Schlei¬ 
fen 





































Anagramm 


Die Wortbildung durch Buchstabenversetzung eignet sich nicht nur für unge¬ 
duldige Kreuzworträtseltüftler. Eine ganze Reihe von Applikationen erfordert 
die Umbildung der einzelnen Elemente einer Zeichenkette, um die verschiede¬ 
nen Kombinationen auf gewisse Eigenschaften zu überprüfen. 

Die Eingaben für die Routine bestehen aus der Länge der Stamm-Zeichenkette 
(N), der Länge der zu bildenden Teilkette (K) und der alphanumerischen Zei¬ 
chenfolge der Stamm-Zeichenkette. Die in Register R(l), R(K) enthaltene Va¬ 
riation der Zahlen N wird mit der Routine durch die nächste Variation ersetzt. 


Bedienungsanweisung 

1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. Programm starten (run RETURN drücken) 

3. Eingabeaufforderungen: 

N? — Länge der Stamm-Zeichenkette 
K? — Länge der Teil-Zeichenkette 
Kette? — Zeichenkette 

durch entsprechende Eingabe beantworten 

4. Ausgabe der Variation 

5. Rückkehr zur nächsten Eingabe in Schritt 3 
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Beispiel 1 

N? 5 
K? 3 

Kette? 12340 


123 

124 

120 

132 

134 

130 

142 

143 

140 

102 

103 

104 

213 

214 

210 

231 

234 

230 

241 

243 

240 

201 

203 

204 

312 

314 

310 

321 

324 

320 

341 

342 

340 

301 

302 

304 

412 

413 

410 

421 

423 

420 

431 

432 

430 

401 

402 

403 

012 

013 

014 

021 

023 

024 

031 

032 

034 

041 

042 

043 








Beispiel 2 

N? 4 
K? 4 

Kette? beil 

beil beli biel bile blei blie ebil ebli eibl eilb elbi elib ibel 
ible iebl ielb ilbe ileb lbei lbie lebi leib libe lieb 

N? 


Hinweise 

1. Die Länge der Zeichenkette wird durch die Anweisung 'dim a(20)' (110) fest¬ 
gelegt. Dieser Wert kann nach Bedarf geändert werden. 
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101 rem - 

102 rem titel: ana.gr einm 


103 rem - 

104 rem 

107 rem - 

108 rem intialisi serung : te Iduere i nbarung 

109 rem - 

110 dim a<20 > s print ehrt<147 > 

117 rem - 

118 rem eingabe: anzahl e lemente, anzah 1 sube lemente.r zeichenkette 

119 rem - 

120 pr i nt: pr i nt s i nput" H " n 

130 i nput" K " .? k : tor i = l tok s aX i > = i : next i 

140 i nput" Kette " .? ct : tor i = 1 to len< ct > s bt < i > =m i dt <et, i , 1 > :next i 

147 rem - 

148 rem berechnung der druck-position 

149 rem - 

150 y=0sprint 

160 y=y+1 s x= < y-1 > * < len< et > +2 > : i tx+2+ len < c* > > 79ther. 150 
170 pr i nt tab < x >.? s gosub 210: pr i nt" " ? 

188 gosub 1010 

190 itp4O0thengoto 160 

200 goto 120 

207 rem - 

208 rem Unterprogramm: ausgäbe der lautenden zeichentolge 

209 rem - 

210 tor i = l to ks print bt<a<i>>.?: next i sreturn 

1007 rem - 

1008 rem Unterprogramm: autbau der lautenden zeichentolge 

1009 rem - 

1010 p1=n:p2=k:p4=k 

1020 tori=1top1:aXk+i>=Ü:nexti 

1030 tori = 1top2: a< k+aXi> > = 1 : nexti 

1050 p5=a< p4>:a< k+p5>=0: p3=p5+ 1:itp3>p1then1080 

1060 ita<k+p3>=©then1180 

1070 p3=p3+1:itp3<>p1then1060 

1088 p4=p4-1:it1C=p4then1858 

1090 p4=8 

1100 it p4O0 then 1130 

1110 a< p3> =p 3:p3=p3+ 1 :itp3<=p2then1110 

1128 return 

1138 aX k+p3 > = 1 : a<: p4 > =p3 : p3=0 : p5=8 
1148 p4=p4+1:itp4>p2thenreturn 
1158 p3=p3+ 1:itaX k+p3 >thenp5=p3:goto1150 
1168 p5=p5+1:aX p4 > =p5:goto1148 
1170 end 
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3 . 

Kommerzielle Programme 








Preiskalkulation 


Der Handel lebt von der Differenz zwischen Einkaufspreis und Verkaufspreis. 
Das Programm berechnet bei der Eingabe von zwei der vier Variablen Einkaufs¬ 
preis, Marge (auch Gewinnspanne genannt), Aufschlag und Verkaufspreis die 
beiden anderen Variablen. Ferner ist die Eingabe von entweder Marge oder Auf¬ 
schlag zugelassen, da diese beiden Variablen in einem festen Verhältnis zuein¬ 
ander stehen. Alle anderen Eingabekombinationen werden mit einer Fehlermel¬ 
dung abgewiesen. 


Es gelten folgende Beziehungen zwischen den Variablen: 

Aufschlag 


Marge 


Aufschlag 


Marge 


Aufschlag 


Verkaufspreis 


1 + Aufschlag/100 
Marge 

1 — Marge/100 
Verkaufspreis — Einkaufspreis 
Verkaufspreis 

Verkaufspreis — Einkaufspreis 
Einkaufspreis 
Einkaufspreis 
1 — Marge/100 


100 

100 


Verkaufspreis = Einkaufspreis ★ (1 + Aufschlag/100) 


1 Verkaufspreis 

Einkaufspreis = - 

1 + Aufschlag/100 


Einkaufspreis = Verkaufspreis ★ (1 — Marge/100) 
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Bedienungsanweisung 

1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. Programm starten (run RETURN drücken) 

3. Ausgabe der Überschrift 

4. Eingabeaufforderungen: 

Einkaufspreis 

Marge 

Aufschlag 

Verkaufspreis 

durch entsprechende Eingabe beantworten 

5. Ausgabe der Ergebnisse 

6. Beliebige Taste drücken (mit der Taste RUN/STOP wird das Programm 
beendet). Löschen der Ein- und Ausgabewerte. 

7. Rückkehr zur nächsten Eingabe in Schritt 4 


Beispiel 1 

Eingabe 

Einkaufspreis ? 200 

Marge ? 20 

Ausgabe 

Aufschlag ? 

25 

Verkaufspreis ? 

250 

Beispiel 2 

Eingabe 

Einkaufspreis ? 100 

Marge ? 10 

Aufschlag ? 15 

Verkaufspreis ? 

Fehler: Zuviel Variablen 

Ausgabe 

Beispiel 3 

Eingabe 

Einkaufspreis ? 

Marge ? 16.6666 

Ausgabe 

Aufschlag ? 

Verkaufspreis ? 

19.999904 
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Anmerkungen 

1. Die Überprüfung und Weiterverarbeitung von Eingabedaten ist nicht nur bei 
Basic-Programmen von außerordentlicher Wichtigkeit. So müssen Eingaben 
häufig auf Art (numerisch oder alphanumerisch), Länge oder Vorhandensein 
eines bestimmten Zeichens (Dezimalpunkt) überprüft werden. Das vorlie¬ 
gende Programm wirft in dieser Hinsicht ein völlig neues Problem auf. Da 
von den möglichen Eingabewerten maximal zwei eingegeben werden dürfen, 
ist an sich jede Eingabe für die restlichen Parameter überflüssig und unzuläs¬ 
sig. Am besten wäre es also, die Eingabeaufforderung mit der leeren Eingabe 
(nur die Taste RETURN) zu beantworten. Die leere Eingabe wird von Basic 
jedoch unterschiedlich und nicht immer im Sinne des Programmierers ver¬ 
standen. 

Benötigt wird daher eine nichtleere Eingabe, die der leeren Eingabe möglichst 
ähnlich sieht. Das erreicht man dadurch, daß man in den Begleittext der 
INPUT-An Weisung eine Cursor-Verschiebung einbaut, die bewirkt, daß nach 
der (vermeintlich) leeren Eingabe mit RETURN ein Teil des Begleittextes als 
Eingabe akzeptiert wird. Dieser Textteil kann dann gezielt abgefragt werden. 
Dieser Plan verliert natürlich seine Wirkung, wenn statt RETURN als erstes 
die Taste DELETE gedrückt wird, weil damit wieder die Bedingung für eine 
echte leere Eingabe hergestellt wird. 

2. Alle Werte für Marge und Aufschlag sind in Prozent einzugeben. 

3. Die Fehlermeldungen: 

Zu wenig Variablen 
Zu viel Variablen 
Unerlaubte Variablen 

erscheinen, wenn keine, mehr als zwei oder unzulässige Kombinationen 
(z.B. gleichzeitig Marge und Aufschlag) eingegeben werden. Die Verfolgung 
von möglichen fehlerhaften Eingaben gehört zu jedem ordentlichen Pro¬ 
grammkonzept. 


Hinweise 

1. Zur Steuerung der verteilten Sprunganweisungen (1100-1120) werden im Ein¬ 
gabeteil die beiden Variablen 'z' (Anzahl der Eingaben) und 'y' (Kombination 
der Eingaben) aufgebaut. 

2. Der Ausdruck 't = 6 — 1 ★ (z>2)' (1100) reduziert sich auf das Ergebnis ’T 
oder '6', je nachdem, ob 'z' größer als 2 ist oder nicht. 
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1001 rer.'.- 

1062 r em t i t e l s preisk a. I k u l at i on e n 

1003 rem - 

1004 rem 

1007 rem - 

1008 rem text-def ir.it ionen 

1009 rem - 

1010 t$ < 0 > = " Ei nkaufspre i s " s t$ C1 > = " Marge " s t$ < 2 > = " Rutsch lag 

1020 t$ < 3 > = " Verkaufspre i s " : t$ •:! 4 > = " E i ngabe " 2 t* < 5> = " Rusgabe " 

1030 t$<6> = "N icht genug " : t$7) = "Zum ie l " st$<8> = " Uner laubte " 

1037 rem - 

1038 rem Initialisation: ueberschrift 

1039 rem - 

1040 print chr$<147)sgosub 3010 

1050 r1=8s s1=8:gosub 3008:print t*<4 ) spc<20 >t$<5 ) 

1057 rem - 

1058 rem eingabetei l 

1059 rem - 

1860 z—0:y=8:s1=8:for i=8 to 3:rl=18+isgosub3880 

1870 pr i nt t* < i > ; s i nput" IftKI" ? >'* < i > s y < i > =ua. l < < i > ) 

1088 i t x$ < i ) <> " " thenz=z+1 : y=y+ i 
1090 next i 

1100 t=8 s on z goto 1110,1128 : t=6-1* <z>2)s goto 2508 
1110 x*<0>«" ":x$<3>=" "so r. y goto 2818,2820 »goto 2588 
1128 on y goto 1178., 1198., 1158., 1188.,2088 

1147 rem - 

1148 rem (marge., autsch lag> = f Einkaufspreis, Verkaufspreis) 

1149 rem - 

1158 it y <8) =8 or y<3>=0 then 2588 

1160 y < 1 > = 180* < y C 3 ) -y < 0 > >/y < 3 ) : y <. 2 > = 180* < y < 3 >-y < 0 ) ) /y 0 > ; goto 2188 

1167 rem - 

1168 rem (Verkaufspreis., autsch lag) = fEinkaufspreis, marge) 

1169 rem - 

1170 y < 3 ) =y 8 ) / < 1 -y < 1 > /100 > s gosub 2818 : goto 2188 

1177 rem - 

1178 rem Einkaufspreis, autsch lag> = t<verkaufspreis marge) 

1179 rem - 

1188 y <O> =y <3 )* <1-y<1>/188 >s gosub 2818:goto 2188 

1187 rem - 

1188 rem (Verkaufspreis., marge) = f 'Ceinkaufspreis, autsch lag) 

1189 rem - 

1198 y C 3)=y<8)*C1+y<2) / 188)s gosub 2828:goto 2188 

1197 rem - 

1198 rem <e inkauf spreis., marge) = f< verkauf spreis., autsch lag) 

1199 rem - 

2808 y <: 0 ) »y 3 ) / < 1 +y < 2 ) /188 ) s gosub 2828 : goto 2188 

2886 rem 

2887 rem - 
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2008 

2009 

2010 

2017 

2018 

2019 

2020 

2896 

2097 

2098 

2099 

2100 

2110 

2128 

2130 

2500 

2507 

2508 

2509 

2510 

2520 

2530 

2540 

2997 

2998 

2999 

3000 

3007 

3008 

3009 

3010 

3020 

3030 


rem autsch lag = t^merge) 


y< 2> =y1 >/< 1 -y < 1 >/188> : it zO 1 then return :goto 2100 


rem mar ge = t < au-fsch las > 


y < 1 > =y < 2 > / < 1 +y < 2 > /1 ©0 > : i t zO 1 -fchen return s goto 2180 


rem ausgebe 

rem- 

s 1 “34 : -Per i =8to3 s r 1 = 16+ i s gosub3000 
i tx$ C i > <> " “ ther.2138 
pr i nt y < i > 
nexti : 010+0 2518 

r1 = 18s s1=8:gosub 3000:print "Feh ler: "+£< t >"Variab len" 


rern u.ier-fce- und 1 oesch-sch leiten 

rem- 

■Liet x$ : i t x$~ 1 ' " -fchen 2518 
r 1 = 18 s s 1 =8 : gosub 3080 s pr i nt Lett$ 48> 

s 1=8 :for i=8 -fco 3 sr 1 = 10+ i :gosub 3880 Sprint lett$<! l$.,48> s nex-fci 
goto 1068 


rem Unterprogramm: Cursor—Steuerung (ueber rl.-sl> 


print"ü" lett$<cu$r 1 > lett$<cr$,sl )j :return 


rem autheu der zeichenketten tuer cursor-steuerung und loesch-zei le 


IS= " " s cu$= " Sfl" : cr$= " ||" s tor i = 1 to7 : cu$=cu$+cu$ : cr$=cr$+cr$ s l$= l$+ 1# : next i 

cu$= lett$<cu$.r25> scr$= lettre:er88> : it= lett^C U- ,80) sreturn 

end 
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Fakturierung 


Rechnungen sehen so unterschiedlich aus wie die Firmen, die sie ausschicken. 
Unterschiede gibt es im Format, in der Menge und Anordnung der Variablen und 
in der Gewährung von Rabatten und anderen Preisnachlässen. Das vorliegende 
Programm stellt also nicht den Anspruch, ein Universal-Fakturierungspro- 
gramm zu sein. Vielmehr soll gezeigt werden, wie einfach es ist, ein Grundta¬ 
bleau für die Fakturierung aufzubauen und gleichzeitig für eine benutzerfreund¬ 
liche Bedienung, einschließlich Fehlerkorrektur, zu sorgen. 


Bedienungsanweisung 

1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. Programm starten (run RETURN drücken) 

3. Ausgabe der Überschrift 

4. Ausgabe der Positionsnummer des aktuellen Postens der Rechnung 

5. Eingabeaufforderung: 

Artikel Menge Einzelpreis Rabatt 
durch entsprechende Eingaben beantworten 

6. Eingabe auf dem Bildschirm überprüfen. Wenn Eingabe fehlerfrei mit 
an den Rechner übergeben oder Schritt 8. 

7. Ausgabe des Betrags (der sich aus Menge, Einzelpreis und Rabatt errechnet). 
Rückkehr zu Schritt 5. 

8. Aktuelle Eingabe mit der Taste ungleich löschen. Rückkehr zu 
Schritt 5. 

9. Aktuelle Rechnung mit "—" für Artikelbezeichnung beenden. 

10. Ausgabe des Endbetrags, der Mehrwertsteuer, des Endbetrags zuzüglich 
Mehrwertsteuer, des Skonto-Betrags und des Endbetrags abzüglich Skonto. 

11. Beliebige Taste drücken (mit der Taste RUN/STOP wird das Programm 
beendet). Löschen der Ein- und Ausgabewerte. 

12. Rückkehr zur nächsten Eingabe in Schritt 5 
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Beispiel 


Nummer 

Artikel 

Menge 

Einzelpreis 

Rabatt (%) 

Betrag 

i 

Artikel 1 

10 

10.50 

5 

99.75 

2 

Artikel 2 

20 

8.50 

10 

153.00 

3 

Artikel 3 

30 

12.35 

12 

326.04 

4 

Artikel 4 

25 

8.75 

5 

207.81 

5 

Artikel 5 

60 

1.50 

5 

85.50 


872.10 

zzgl. 13% Mehrwertsteuer 113.37 


985.47 

Abzüglich 2% Skonto bei Zahlung innerhalb von 8 Tagen 19.71 

Zu zahlender Betrag 965.76 


Anmerkungen 

1. Auf nichts wird so peinlich genau geachtet wie auf Pfennigbeträge. Alle Ein¬ 
zelbeträge werden also mit der Rundungs-Routine auf Werte mit zwei Nach¬ 
kommastellen gerundet, bevor sie summiert werden. Das gleiche gilt für die 
Mehrwertsteuer und Skonto-Beträge. 

2. Mehrwertsteuer und Skonto sind im Programm als Konstanten definiert. 

3. Für jeden Artikel wird der Rabatt getrennt als Eingabe verlangt. Es kann je¬ 
doch auch eine Rabatt-Tabelle verwendet werden, deren Elemente abhängig 
von der Menge oder des Einzelpreises X Menge (oder einer Kombination von 
beiden Bedingungen) aufgerufen werden. 

4. Es fehlt eine umfassende Überprüfung der Eingabedaten. In dem Programm 
»Lineare Regression« wird angezeigt, wie diese aussehen kann. 

Hinweise 

1. Wenn mit der Eingabe ' für den ersten der fünf Parameter das Ende der ak¬ 
tuellen Rechnung angezeigt wird (1130), wird die Laufvariable auf den End¬ 
wert gesetzt, um die Schleife ordnungsgemäß abzuschließen. 

2. Die Rundungs-Routine (2600) wird bei der Fakturierung nicht mit dem Para¬ 
meter für die Anzahl der signifikanten Stellen versorgt, da Geldbeträge im¬ 
mer auf zwei Stellen nach dem Komma gerundet werden. 
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1001 rem - 

1002 rem tltel: -Fakturierung 

1003 rem - 

1004 rem 

1007 rem - 

1008 rem text-de-finitionen 

1009 rem - 

1 © 10 t$ 0 > = " Nummer " : t* <1> = " Rrt i ke l " : t$ < 2 > = " Menge 

1020 t$ <3 > = "Ei nze Irre i s " : t$ < 4 > = " Rabatt <> " : t$ < 5 > = " Betrag " 

1030 t$ < 6 > = " zzg 1. " : t$ < 7 >=" ?■£ Mehrwertsteuer " s t$ < 8 > = "-" 

1048 t$<9>="flbzueg lieh" st$< 10> = "K Skonto bei Zahlung innerhalb von 3 Tagen" 
1050 u$<0 > = "Zu zahlender Betrag" 

1077 rem - 

1078 rem open 1,0 tuer inputs Initialisierungs ueberschri-ft 

1079 rem - 

1080 rr i nt chr$ < 147 > : gosufo 3010 : oren 10 : sz< 0> = 13 s sz < 1 > =2 

1090 r 1 = 1 s s 1 = 1 : gosub 3000 s rr i nt t$ < 0 > t$ < 1 > t$ < 2 > t* •:! 3 > t$ < 4 > t$ < 5 > 

1097 rem-- 

1098 rem eingafoetei 1 

1099 rem - 

1100 n=0:z=0 . 

1110 n=n+l 

1120 r1=2+n:tor i=1 to 5:s1=0:gosub 3000:rrintn:sl=14+<i-l>*13:gosub3880 
1130 inrut#1,<i > : y < i>=va l <x*<i> >:it x$ <1> = "-"then i=5:x$< 5 > = "/" 

1140 next i 

1150 i t x$ <5> O" / " then s 1 =0 : gosub 3000 : rr i nt lettS < 1$78 > s goto 1120 
1168 it x$ <. 1 > = " - " then 1190 

1170 y=y<2 >*y<3 >* C1-y < 4 >/108 > s go - ib 2688 s z=z+x:r$=str$<x >sgosub 2700 
1180 gosub 3008sprint" "src<12-y>r*sgoto 1110 

1187 rem - 

1188 rem sumrnenb i Idung 

1189 rem - 

1198 rl=2+n:gosub 2988 

1280 r1=3+n:s1=87:gosub 3888:r^-str*<z >:gosub 2708s rrintsre<12-y >r$ 

1287 rem - 

1288 rem Mehrwertsteuer 

1289 rem - 

1210 y=ztsz< 0>/100:gosub2688s z1=x s p$=str$<x >:gosub 2788 

1228 r 1 =4+n s s 1 =48 s gosub 3008 s rr i nt t$ < 6 > sz < 8 > t$ < 7 > sre 's 14-y > r* 

1227 rem - 

1228 rem endsumme 

1229 rem - 

123© rl=5+n:gosub 2900 
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1240 
125© 
1257 
1253 

1259 

1260 
127© 
1230 
1290 
1300 
2507 
2503 

2509 

2510 
2520 
2530 

2597 

2598 

2599 
2608 
2697 
2693 

2699 

2700 
2710 
2720 
2730 
2797 
2793 
2799 
2380 
2310 
2397 
2393 
2399 
2908 
2997 
299S 
2999 

3007 


3009 

3010 
3028 
3030 


rl=6+n - s 1=67 : gosub 300©: p$=str$ •:! z+z 1 > s gosub 2700: pr i ntspc < 1 2-y > p$ 
r 1 =7+n : gosub 29üö 

rem- 

rem Skonto 

rem- 

y= < z+z 1 > *sz < 1 > /100 : gosub2688 s z2=x s z3=z+z 1 -z2 s p$=str$ < x > : gosub 2780 
r 1 =9+n s s 1 = 18:gosub 3000: pr i nt t$ < 9 > sz < 1 > t$ < 10 > spc < 14-y > p$ 
r 1 = 18+n : gosub 2900 

rl—11+nssl =48 : oiosub 388Ö s p$=str$ <! z3 > s oiosub 2708 : pr intu$ < 8 > spc < 28-y > p$ 
r 1 = 12+n : oiosub 2980 

rem werte- und loesch-schleiten 


•yet x$sit x*=" " tl-.en 2518 

tor i = 12+n to 3 step -1:rl=issl=0sgosub 3888 sprint lett$< l$,79> snexti 
goto 1100 

rem- 


rem unterprogr« 


rundung 


x=int<y#10$2 +8- 5>/int <18%2>: return 


rem Unterprogramm: Positionierung des dezime.Ipunktes 


y= len Cp$)sgosub 2388 
it x=8 then p$=p$+".08" 
it x=y-1 then p$=p$+ ,, 0» 
y=len<p$> sreturn 


rem unterprogrs 


lokalisierung des dezime.Ipunktes 


tor x=l to ys it "."=mid$<p$.rX,1> then return 
next xsx=0s return 


rem Unterprogramm: Unterstreichung 


s 1 =8 s gosub 3888 s pr i nt lett$ < 14?, 63 > t$ < 3 > s return 


rem Unterprogramm: ci 


r 1 .r s 1 > 


pr i nt" ü" lett-4? cu4>, r 1 > lett*cr$ , s 1 > .? s return 


rem autbau der zeichenketten tuer 


und loesch-zei le 


l$=" » -cu$="2n" scr$="ll" stori = lto7 :cu$=cu$+cu$ :cr$=cr$+crl: l$= l$+ 1$ snexti 

cu$= lett$<cu$ T 25> :cr$= lett*<cr$.r80> s 14?= lett$< 14?.,80> sreturn 

end 
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Flußdiagramm 

Dezimalteil einer Zahl 


N 



Zeile 

2700 


2710 


2720 


2730 


Anmerkungen 

Anzahl Zeichen der ein¬ 
gegebenen Zahl (y) 


Aufruf des Unterpro¬ 
gramms in Zeile 2800 
(Suche nach einem Dezi¬ 
malpunkt) 


Zahl ohne Dezimalteil 

(x = 0) 


Zahl mit einer Nach¬ 
kommastelle (x = y-1) 


Neue Länge der Zeichen¬ 
folge p$ 


Rückkehr aus Unterpro¬ 
gramm 
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Optimale Bestellmenge 


Für die Bestimmung einer optimalen Bestellpolitik in Lagerhaltungsproblemen 
gibt es eine Reihe von Verfahren. In diesem Beispiel soll die Lösung der klassi¬ 
schen Wilsonschen Formel betrachtet werden. Es wird also vorausgesetzt, daß 
die Nachfrage konstant ist, Lagerungskosten pro Mengen- und Zeiteinheit 
gleich sind und keine Fehlmengen zugelassen sind. 


Es gilt, die durchschnittlichen Gesamtkosten pro Bestellperiode t 

h ★ Q K ★ M c ★ M 

C = - + - + - 

2 Q ★ T T 

zu minimieren. 


In der obigen Formel bedeuten 

C = Gesamtkosten 
K = Beschaffungskosten 
h = Lagerungskosten 
c = Artikel-Einzelpreis 
M = Nachfrage (gesamt) 

T = Zeitraum (gesamt) 

Für entsprechende Optimierungsverfahren sei auf die Literatur verwiesen. Die 
Lösung der Formel ergibt 



Optimale Bestellmenge 


t 


opt 


1 2 ★ K ★ 
V h ★ M 


2 ★ K ★ T 


Optimale Bestellperiode 
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Der optimale Bestellpunkt r (Lagerbestand zum Zeitpunkt der Bestellung) er¬ 
rechnet sich aus 


Hier bedeuten 
L = Lieferzeit 

L L 

— = größter ganzzahliger Wert kleiner gleich — 

Die minimalen Gesamtkosten lassen sich schließlich aus der Formel 


C, 


opt 



2 ★ K ★ M c ★ M 


T 


errechnen. 
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Bedienungsanweisung 


1. Programm laden (von Kassette, Diskette oder über Tastatur 

2. Programm starten (run RETURN drücken) 

3. Ausgabe der Begleit texte für die Variablen 

4. Eingabeaufforderung: 

Beschaffungskosten 

Artikel-Einzelpreis 

Lagerungskosten 

Nachfrage 

Zeitraum 

Lieferzeit 

durch entsprechende Eingaben beantworten 

5. Ausgabe der Ergebniswerte 

Bestellmenge 

Bestellperiode 

Bestellpunkt 

Gesamtkosten/Zeit 

6. Rückkehr zur nächsten Berechnung in Schritt 3 


Anmerkungen 

1. Das Programm verwendet eine DATA-Liste, um die Begleittexte für die Va¬ 
riablen zu definieren. In dieser DATA-Liste steht gleichzeitig das (X, Y-) Koor¬ 
dinatenpaar (relativ zur oberen linken Bildschirmecke), das die Position für 
die Ausgabe des Begleittextes auf dem Bildschirm bezeichnet. 

2. Die im Programm "CURL" beschriebene Methode der Cursor-Steuerung 
wurde verwendet, um die Ein- und Ausgabe auf dem Bildschirm zu steuern. 

3. Über einen Schalter (in einer getrennten Eingabe-Operation) bestimmt der 
Anwender, ob er die Berechnungen fortsetzt oder das Programm beendet. 
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Beispiel 


Beschaffungskosten 

40 

Artikel-Einzelpreis 

.5 

Lagerungskosten 

.1 

Nachfrage (gesamt) 

.2400 

Zeitraum (gesamt) 

12 

Lieferzeit 

1 

Bestellmenge 

400 

Bestellperiode 

2 

Bestellpunkt 

200 

Gesamtkosten/Zeit 

140 

Weiter/Fertig (w/f) 



Hinweise 

1. Die Anweisungen 'dim g(l, 11)' (1100), 'data' (1110-1160) und 'read' (1170) 
stehen in Beziehung zueinander. Die Elemente der DATA-Liste werden mit 
'read' gelesen, wonach die für die Cursor-Steuerung verwendeten numeri¬ 
schen Werte im Feld g abgespeichert werden. 
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1001 rem-. 

1002 rem titel: optimale bestellmenge 

1003 rem - 

1004 rem 

1097 rem - 

1093 rem te Id-vereinabarungen: open 1,0 tuer input#l: intialisierung 

1099 rem - 

1100 di m g < 1, 11 > s gosub 1310:pri ntchr$ < 147 > : open 1,0: restore 

1107 rem - 

1108 rem aut bau der data-liste tuer reaol-anwe i sungen 

1109 rem - 

1110 data 10,10"Beschattungskosten" , 11., 10., "Artike l-Einze Ipreis" 

1120 data 12., 10., " Lagerungskosten " 13., 10" Nachträge < gesamt > " 

1130 data 1410., "Zeiträum < gesamt> " ., 15., 1 @,"Lieterzeit" 

1140 data 17., 10"Beste l Imenge" ., 18., 10., "Beste l Iper iode" 

1150 data 19., 10., " Beste l Ipunkt" ., 20., 10., " Gesamtkosten/Ze i t" 

1160 data 2210., " We i ter/Fert i g < iu/t> " 

1167 rem - 

1168 rem read—sch leite: aus gäbe der data-liste (als hinuieis tuer eingabe) 

1169 rem - 

1170 tor i = 1 to 11 : read r 1 , s 1., a.$ : gosub 1300 : pr i nta.'l: g < 0i > =r 1 : g < 1., i > ~s 1 : next i 

1177 rem - 

1178 rem eingatae-sch leite: eingabe der variablen 

1179 rem - 

1180 tor i -1 to6 : r 1 ~g < Ö., i > : s 1 =g < 1i > +24 : gosub 1308 : i nput# 1x < i > : next i 

1187 rem - 

1183 r e m b e r e c h n ung der ergebnis- w erte 

1189 rem- - - 

1198 y ( 1 > =sgr < 2*x < 1 > *x < 4 > / ( x •:! 3 > *x •:! 5 > > > : y < 2 >=sgr < 2#x ( 1 > *x < 5 > / < x < 3 > < 4 > > > 

1208 z= i ntx < 6 >/y < 2 > > 

1210 y < 4 > =sgr 2*x < 1 > *x < 4 > *x < 3 > /x < 5 > > +x < 2 > 4 > /x ( 5 > : y < 3 > =x»:! 6 > *x < 4 > /x < 5 > -y < 1 > tz 

1217 rem - 

1218 rem ausgabe-tei l: ausgahe der ergebnis-werte 

1219 rem - 

1228 tor i = 1 to4 : r 1 =g 8., i +6 > : sl ~g < 1., i +6 > +24 : gosub 1388 : pr i nt y < i > : next i 

1227 rem - 

1228 rem schalter-zeile: nur die eingaben w und t sind erlaubt 

1229 rem - 

1230 r 1 =g < 011 > : s 1 =g < 1., 11 > +24 : gosub 1388 : pr i nt lett$ ■:! I*18 > : gosub 1308 : i nput# 1x$ 
1248 it x$<>"t"andx$<>"m" then 1238 

1258 it x$="t" then print chr$<147>send 
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1257 rero - 

1253 rem loesch-rout ine: loeschen der ein- und ausgabewerte 

1259 rem-- 

1268 tor i = 1 -fco 11 : r 1 =g <. 8i > : s 1 =g < 1i > +24 :gosub 1388 : pr i rrt lett# < 1$ , 28 > : next i 
1278 goto 1138 

1297 rem - 

1293 rem Unterprogramm: cursor-steuerung (ueber rl,sl> 

1299 rem - 

1388 pr i nt" lett$ <. gu$ r r 1 > lett$ < cr$ - s 1 >.? : return 

1387 rem - 

1383 rem autbau der zeichenketten tuer Cursor—Steuerung und loesch-zei le 

1389 rem - 

1318 l$= " " s cu$= " SV' : cr$= " II" : tor i = 1 to7 : cu$=cu$+cul s cr$=cr$+cr$ s 1*= l$+ 1$ : next i 
1328 cu$= lett$<cu$25> tcr$= lett*<cr$,80> : 1$= lett$*:: 1$.,88> sreturn 

1338 end 
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Zinseszins-Rechnung 


Bei unterjährlich-nachschüssiger Verzinsung sind Nominalzins und Effektivzins 
nicht identisch. Das Jahr ist in m gleiche Zinsperioden unterteilt, und die Zins¬ 
gutschrift erfolgt nach jeder dieser Perioden. 

Für die beiden gesuchten Größen, Rückzahlungsbetrag und Effektivzins werden 
die Formeln 


m ★ n 

K = K ★ (1 + i/m) 
p = ((1 + i/m) - 1) ★ 100 

verwendet, wobei 

K = Anfangskapital 
K = Rückzahlungsbetrag 
i = Nominalzins 
m = Zinsperioden/Jahr 
n = Anzahl Jahre 
p = Effektivzins 

bedeuten. 
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Bedienungsanweisung 

1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. Programm starten (run RETURN drücken) 

3. Ausgabe der Begleittexte für die Variablen 

4. Eingabeaufforderung: 

Anfangs-Kapital 
N ominal-Zinsfuß 
Zinsperioden/Jahre 
Anzahl Jahre 

durch entsprechende Eingaben beantworten 

5. Ausgabe der Ergebniswerte 

Rückzahlungs-Betrag 

Effektiv-Zins 

6. Rückkehr zur nächsten Berechnung in Schritt 3 


Anmerkungen 

1. Der äußere Rahmen für dieses Programm ist mit dem des Programms "Lager¬ 
haltung" identisch. Der Unterschied besteht in anderen Begleittexten und 
natürlich anderen Rechenabläufen. Hier soll gezeigt werden, wie einfach es 
ist, bewährte Routinen und Programmstrukturen für völlig unterschiedliche 
Lösungen einzusetzen. 


Beispiel 


Anfangs-Kapital 
Zinsfuß (nominell) 
Zinsperioden/Jahr 
Anzahl Jahre 

Rückzahlungs-Betrag 

Effektiv-Zins 

Weiter/Fertig (w/f) 


6800 

9.5 

4 

10 


17388.6359 

9.84382816 
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101 rem--- 

102 rem tite l: zinseszins-rechnung 

103 rem-*- 

104 rem 

107 rem--- 

108 rem te Id-Vereinbar ungen: open tuer inputttl: initialisierung 

109 rem - 

118 pr i nt chr$ <! 147> : open 1,0: di m y< 17 > : gosub 1310 

117 rem - 

118 rem autbau der data-liste tuer read-anweisungen 

119 rem-:- 

120 data 18,18,"Rntangs-Kapital" 

130 data 10,11., "Zinstuss <nomine 11> " 

148 data 10,12., "Zi nsper i öden/Jahr " 

150 data 1013" Rnzah l Jehr e " 

160 data 10., 15., " Rueckzah lungs-Betrag " 

178 data 10 .,16., " Ettekt i u-Z i ns " 

180 data 10., 18., "Weiter/Fertig <w/t>" 

187 rem - 

188 rem read-schleite: ausgebe der data-liste <aIs hinweis tuer eingabe) 

189 rem-- 

198 restore 

200 tor i = 1 to 7 : read xy., a$ : r 1 =y : y < 0., i > =y : y < 1., i > =x : gosub 1388 : pr i nt a$ : next i 
207 rem - 

288 rem eingabe-sch leite : eingabe der variablen 

289 rem - 

218 tor i = 1 to 4 : r 1 =y <!0., i > : s 1 =y < 1 r i > +28 : gosub 1308 : i nput# 1., x < i > : next i 

212 rem - 

213 rem berechnung und ausgäbe der ergebnis-werte 

214 rem - 

228 p=x< 2 >/<100*xC 3 > > 

238 x < 5 > =x < 1 > * < 1 +r > x < 3 > *x C4 > > s x < 6 >=< < 1 +P > <3>-l>*l 88 

248 tor i =5 to 6 : r 1 =y < 8., i > : s 1 =y < 1., i > +28 : gosub 1388 : pr i ntx •:! i > : next i 

247 rem - 

248 rem schalter-zei le : ab trage aut eingeben r ».u' und P t' 

249 rem - 

258 r 1 =y < 8., 7 > : s 1 =y < 1., 7 > +28 : gosub 1388 : pr i nt lett$ < 1$., 18 > : gosub 1300: i nput# 1., x$ 
268 it x$O n t" and x$0"ui" then 258 

267 rem - 

268 rem programm-ende :c lose 1: loeschen des bi ldschirms 

269 rem - 

270 it x$="t" then c lose 1 Sprint chr$<147>send 

277 rem - 

278 rem loesch-routine 

279 rem - 

280 tor i = l to 7 s r 1 =y <8., i > ss 1 =y < 1., i > +28 : gosub 1388 : pr i nt lett$ < l* , 20 > : next i 
298 goto 218 

1297 rem - 

1298 rem Cursor—Steuerung (ueber rl.,sl> 
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1299 rer..- 

1308 pr i nt" lett$ < cu$ , r 1 > le tt$ < cr$s 1 > ; : re turn 

1307 rem - 

1308 rem autbau der zeichenketten tu er cursor-steuerunoi und loesch-zei le 

1309 rem - 

1310 l$=" " :cu$="S1" :cr$:="ll" :tori = lto7 scu$=cu$+cu$ :cr$=cr$+cr$ : lt= l$+ l$ :nexti 
1320 cu$= lett$ < cu$ 25 > : cr$= lett$ < cr$80 > : l$= lett$ < 1$ r 80 > s return 

1330 end 
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KURWEG 


Dieses Programm ermittelt den kürzesten Weg von einem Ausgangspunkt (Kno¬ 
ten Nr. 1) zu allen anderen Knoten in einem Netzwerk. Das iterative Verfahren 
berechnet 

f k/i = Entfernung von Knoten 1 bis Knoten i nach Schritt k 
mit 

f x j = d 1;j nach Schritt 1 
wobei 

di j = Entfernung von Knoten i bis Knoten j, wenn die beiden Knoten verbun¬ 
den sind 

di j = oo ; wenn die beiden Knoten nicht verbunden sind. 

Der kürzeste Weg wird dann nach dem Schema 
= minimum (f k . M + dj 

berechnet. Nach jeder Iteration wird der augenblicklich kürzeste Weg ausge¬ 
druckt. Zuletzt wird abgefragt, ob di j = f kj — f k i; um die Wegstrecken festzustel¬ 
len, die in der optimalen Lösung enthalten sind. 


Bedienungsanweisung 

1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. Programm starten (run RETURN drücken) 

3. Eingabeaufforderung 

Anfangsknoten 

Endknoten 

Länge 

durch entsprechende Eingaben beantworten. 

4. Rückkehr zur nächsten Eingabe in Schritt 3 
oder (bei Eingabe 0 ) 

5. Ausgabe 

der Knoten und Wegstrecken nach der i-ten Iteration 
der Wegstrecken im kürzesten Weg 

6. Programmende 
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Beispiel 

Gesucht wird der kürzeste Weg von Knoten 1 zu allen anderen Knoten in dem 
Netzwerk. 



Die optimale Lösung wird durch die Wegstrecke 



wiedergegeben. 


1. Wegstrecke 

2. Wegstrecke 

3. Wegstrecke 

4. Wegstrecke 

5. Wegstrecke 

6. Wegstrecke 

7. Wegstrecke 

8. Wegstrecke 

9. Wegstrecke 

10. Wegstrecke 


Anfangsknoten, 

Anfangsknoten, 

Anfangsknoten, 

Anfangsknoten, 

Anfangsknoten, 

Anfangsknoten, 

Anfangsknoten, 

Anfangsknoten, 

Anfangsknoten, 

Anfangsknoten, 


Endknoten, 

Endknoten, 

Endknoten, 

Endknoten, 

Endknoten, 

Endknoten, 

Endknoten, 

Endknoten, 

Endknoten, 

Endknoten, 


Länge ? 1, 2, 3 
Länge ? 1, 3, 5 
Länge ? 2, 3, 1 
Länge ? 2, 4, 4 
Länge ? 3, 4, 2 
Länge ? 3, 5, 5 
Länge ? 4, 5, 6 
Länge ? 4, 6, 1 
Länge ? 5, 6, 7 
Länge ? 0, 0, 0 


1-te Iteration 
Von Knoten 
1 
1 
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nach Knoten Entfernung 

2 3 

3 5 





2- te Iteration 
Von Knoten 

1 

1 

1 

1 

3- te Iteration 
Von Knoten 
1 

1 

1 

1 

1 


nach Knoten 
2 

3 

4 

5 

nach Knoten 
2 

3 

4 

5 

6 


Entfernung 

3 

4 
7 

10 

Entfernung 

3 

4 
6 
9 
8 


4-te Iteration 
Von Knoten 
1 
1 
1 
1 
1 


nach Knoten 
2 

3 

4 

5 

6 


Entfernung 

3 

4 
6 
9 
7 


5-te Iteration 
Von Knoten 
1 
1 
1 
1 
1 


nach Knoten 
2 

3 

4 

5 

6 


Entfernung 

3 

4 
6 
9 
7 


Der kürzeste Weg von Knoten 1 besteht aus: 

Wegstrecke 1 — 2 

Wegstrecke 2 — 3 

Wegstrecke 3 — 4 

Wegstrecke 3 — 5 

Wegstrecke 4 — 6 


Hinweise 

Die Felder, die das Netzwerk beschreiben, sind in Zeile 120 dimensioniert. Die¬ 
se Felder können je nach vorhandenem Speicherplatz anders dimensioniert wer¬ 
den. 

Der Rechner hat keine Möglichkeit, den Wert °° explizit wiederzugeben. Es 
reicht aber, einen im Verhältnis zu den tatsächlichen Wegstrecken sehr großen 
Wert einzusetzen, um Unendlichkeit zu 'simulieren' (ä = 999999999). 
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101 rem - 

102 rem titel: kurweg 

103 rem - 

104 rem 

107 rem - 

108 rem initialisierung: dimensionier ung der telder.- konstanten 

109 rem - 

110 pr i nt ehr $ < 147 > 

120 dim sn <21 > ,er .<21 > , le< 21 > , t < 20 > ,t 1 <20 > 

130 r.0=20 s a=999999999 : mk=0 

137 rem - 

138 rem eingabe der wegstrecken-daten 

139 rem - 

140 for i = l to n 0 s a$~str$<i> 

150 print spc<3- len<a$> > i ". Wegstrecke - fintangsknotenEndknoten r Laenge ".? 
160 i nput sn < i > , er. < i > , le < i > s i t er. < i > >rrik then mk=er.< i > 

170 it sn < i > =0 or en<i>=0 or le< i >= Q ther. 190 
180 next i 

187 rem --- 

188 rem berechnungstei 1 : k= 1 auf bau der Felder t und -fl 

139 rem - 

190 n =i-l:k =1 
200 gosub 500 
210 tor i = l -fco n 

220 r=en< i > : it sn<iK>l goto 250 
230 print 1spe<10>rspe<10>le <i> 

240 tl<r>= le<i>: goto 260 
250 it 11 <r>=0 ther. tl <r>=a 
260 t<r>=tl<r>: next i 

267 rem - 

268 rem berechnur.gstei l: k>l, aktua l isierung der telder t und tl 

269 rem - 

270 k=k+1 

280 tor i=l to n 
290 r=sn<i>:s=en<i> 

300 it t<r»tl<s> + le<i> ther. t<r>=tl <s>+ le< i > 

310 it t<s»tl<r>+ le< i > ther. t<s>=tl <>>•+• le< i > 

320 next i 
330 gosub 500 

337 rem - 

338 rem ausdruck der Wegstrecken tuen die lautende iteration 

339 rem - 

340 tor i=2 to mk 

350 i t t < i > Oa ther. pr i nt 1 spe < 10 > i spe < 1 0 > t < i 
360 tl<i>=t<i>: next i 
370 it k<rr.k-l ther. 270 

377 rem - 

378 rem ausdruck der kuerzester. Wegstrecken vor. knoten 1 

379 rem - 
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380 

390 

400 

410 

497 

498 

499 

500 

510 

520 


print8print"Der kuerzeste Weg von Knoten 1 besteht aus:" sprint 
tor i = 1 to n:r=sn<i> ss=en <i> 

it le<i >=t<s>—t<r> then print "Wegstrecke "r" - "s 
next i: end 


rem 


rem Unterprogramm : ueberschritt tuer lautende iteration 


rem- 

prints print:printk"-te Iteration":print 

print"Von Knoten nach Knoten Entfernung"Sprint 

return 
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Flußdiagramm 

Initialisierung der Felder f und fl 


Zeile 

210 


Anmerkungen 
n Wegstrecken 


Zähler 

initialisieren 



r ist der Endpunkt einer 
Wegstrecke 


Abfrage, ob der Aus¬ 
gangspunkt einer Weg¬ 
strecke gleich 1 ist 


f 1 (r) = Weglänge 


fl(r) = oo wenn Knoten 
r nicht mit Knoten 1 
verbunden ist 


f(r) = f 1 (r) 


Schleifenende 
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4 . 

Statistik 









Balkendiagramm 


Numerische Daten sollten, sofern sinnvoll und möglich, durch grafische Dar¬ 
stellungsformen ergänzt werden. Eine gute Grafik fördert das Verständnis der 
Materie und unterbricht die Eintönigkeit von endlosen Zahlenkolonnen. 

Nicht alle Grafiken sind gleich leicht zu programmieren. Die Qualität einer 
Zeichnung hängt von der Auflösung (Anzahl diskrete Punkte pro Flächenein¬ 
heit) ab und in welchem Maße schräge Linien wiedergegeben werden können. 
Ein Stab- oder Balkendiagramm kennt diese Schwierigkeiten jedoch nicht. Auf 
einer horizontalen Achse werden die in zeitlicher oder anderer Folge angefalle¬ 
nen Summen nebeneinander "aufgetürmt". Diese Form der Präsentation ist an¬ 
schaulich und gibt einen guten Überblick über die zur Diskussion stehenden 
Daten. 


Bedienungsanweisung 

1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. Programm starten (run RETURN drücken) 

3. Eingabeaufforderung: 

Anzahl Gruppen 

durch entsprechende Eingaben beantworten 

4. Ausgabe des Balkendiagramms 

5. Ausgabe der numerischen Werte 

6. Rückkehr zur nächsten Eingabe in Schritt 3 
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Anmerkungen 


1. In diesem Programm werden die Variablen (die Länge der Balken) mit dem 
Zufallszahlen-Generator erzeugt. Viel wichtiger als eine willkürliche Vertei¬ 
lung der Daten ist hier aber die automatische Skalierung, die dabei stattfin¬ 
det. In einer praktischen Anwendung entstammen die Daten in der Regel ei¬ 
nem beliebigen Prozeß. Vor der Ausgabe auf dem Bildschirm muß dann über¬ 
prüft werden, ob die Anzahl Reihen des Bildschirms für die Ausgabe ausrei¬ 
chen oder ob die Daten nicht erst skaliert werden müssen. 

2. Für die Cursor-Positionierung und das Löschen von Bildschirmt eilen werden 
die Programmelemente verwendet, die in dem Programm "CURL" beschrie¬ 
ben sind. 


Beispiel 






' V. 

■ . 

:: ;X: ' ' 

MU '»"Wn ><v t'V--"'» * »- 

9 12 14 8 16 16 12 9 

Anzahl l Gruppen ? 








>■ 


: . : -■ ■, ■ 


0 14 3 17 


6 12 


■ * 


1 14 


Hinweise 

1. Die Breite der Balken kann mit der Länge von 'c$' und dem Faktor T verän¬ 
dert werden. Die Höhe des Balkens wird mit der Variablen 'h' gesteuert 
( 120 ). 
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101 rem - 

102 rem titel: balkendiagramm 

103 rem - 

104 rem 

107 rem - 

108 rem initialisierun^ 

109 rem- : - 

110 dim aX80>: gosub 2110 :m=l 

120 printchr$<147 >:r1=0:s1=0: cf=chr$<230>:c$=c$+c$+c$+c$:t=4:h—20 

147 rem - 

148 rem eingsbes anzah l gruppen 

149 rem - 

158 r=23 : s=9 : gosub 2100 : pr i nt" Rnzah l Gruppen " lett* < 1$ ...10 > : s=23 : gosub 2100 
160 input" "?n 

167 rem-*— 

168 rem loesch-routine 

169 rem - 

170 s-9stor r=8 to 213 gosub 2100 sprint lett* < 1$m*t+1 > : next-r 

197 rem - 

198 rem berechnung der balUenlaengen mittels der rnd-tunktion 

199 rem - 

200 tori = 1ton: a( i> = int<rnd <0 > *h>:nexti 

207 rem- : - 

208 rem ausgebe des baIkendiagramms 

209 rem - 

210 tori = l to ns s=itt+6: gosub 2100 

220 tor 1=1 to aX i > : r=2ö-1: gosub 2100 sit a(iK>8 then print c* 

230 next 1: nexti 

237 rem - 

238 rem ausgebe der ko lonnen-merte : rueckkehr zum neechsten beispiel 

239 rem - 

240 r=21: tori = 1 to n s s=i*t+9-len<str*<a<i>> >:gosub 2100s print a<i>:nexti 
258 m=n s goto 150 

2097 rem - 

2098 rem Unterprogramm s cursor-steuerung (ueber rl,r,sl,,s> 

2099 rem - 

2100 pr i nt "3" lett* < cu$r 1 +r > lett* ( er* , s 1 -t-s > ; : return 

2107 rem - 

2108 rem autbau der zeichenketten tuer cursor-steuerung und loesch-zei le 

2109 rem - 

2110 l*=" " scu*="Sl" :er*="U" stori = lto7 :cu$=cu$+cu$ :cr*=cr*+cr* : l*= l*+ l* snexti 
2120 eu*= lett* cu*25 > s er*= lett* < er*80 > : l*= lett* < l*80 > : return 

2130 end 
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- 






Lineare Regression 


Dieses Programm berechnet den Mittelwert, die Varianz, die lineare Regres¬ 
sionskurve und den Korrelationskoeffizienten für n Datensätze (x, y). Zur Er¬ 
mittlung der statistischen Größen wurden die bekannten Formeln 



n 


_ = Zn 

n 

.2 Ex? nx 2 

Sy — 


E y? — ny 2 
n- 1 


a = 


EXjYi — 


ExjEyi 

n 


IX 2 - 


IZxf 

n 


b = y — a x 



verwendet, wobei 
x = x-Mittelwert 
y = y-Mittelwert 
s 2 = x-Varianz 
Sy = y-Varianz 

a = Steigung der Regressionsgeraden 
b = Schnittpunkt der Geraden mit der Ordinate 
r = Korrelationskoeffizient 

bedeuten. 
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Bedienungsanweisung 


1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. Programm starten (run RETURN drücken) 

3. Eingabeaufforderung: 

X-Wert Y-Wert 

durch entsprechende Eingaben beantworten oder Schritt 5 

4. Rückkehr zur nächsten Eingabe in Schritt 3 

5. Nach 10 Wertepaaren oder durch die Eingabe eines Minuszeichens wird die 
Eingabesequenz unterbrochen. In der Höhe der letzten Eingabe erscheint: 

6. Schalterzeile 


f/w/k/e mit 


f = fertig 

Ausgabe der Statistiken 

Anzahl Wertepaare 

X-Mittelwert 

Y-Mittelwert 

X-Varianz 

Y-Varianz 

Korrelationskoeffizient 

Regressionskurve 

Rückkehr zur Schalterzeile 

w = weiter 

Löschen des aktuellen 10-Blocks und Ausgabe der 
letzten Eingabe als Referenzpunkt für weitere Ein¬ 
gaben 

oder 

Rückkehr zu Schritt 3, wenn der aktuelle 10-Block 
noch nicht abgeschlossen ist. 

k = korrigieren 

Eingabe einer Wertepaarnummer im aktuellen 10- 
Block. Positionsnummern außerhalb des aktuellen 
Bereichs werden abgewiesen. 

Löschen des Eintrags in den X-Wert- und Y-Wert- 
Spalten. Rückkehr zur Schalterzeile. (Durch ein 
"f" kann die Auswirkung der Wertetilgung sofort 
untersucht werden.) 

e = ende 

Programmende 
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Beispiel 



X-Wert 

Y-Wert 

20 

10.25 

12.45 

21 

11.23 

14.13 

22 

13.56 

15.32 

23 

15.23 

24.23 

24 

12.32 

16.23 

25 

18.13 

20.48 

26 

16.02 

16.78 

27 

14.85 

19.56 

28 

21.06 

27.16 

29 

14.51 

20.26 

30 

10.95 

9.56 


Anzahl Wertepaare 

X-Mittelwert 

Y-Mittelwert 

X-Varianz 
Y-Varianz 

Korrelationskoeff. 

Regressions-Kurve 


f/w/k/e 

30 

10.67 

12.64 

27.55 

46.69 

.8793 

Y = 1.14 ★ X + 0.47 


Anmerkungen 

Die Bedeutung des Programms liegt weniger in der richtigen Ermittlung der obi¬ 
gen statistischen Größen als in der Anwendung einiger Programmiertechniken, 
die zu einem sicheren und effizienten Programmablauf beitragen. 

Dazu gehören die Überprüfung numerischer Eingaben, die Aufbereitung der Da¬ 
ten für eine konforme Ausgabe und benutzerfreundliche Aspekte wie schnelle 
und eindeutige Korrekturmöglichkeiten für falsch eingegebene Werte. 


Hinweise 

1. Die Routine 'Textvergleich' wird verwendet (1690), um festzustellen, ob der 
Eingabe wert einen Dezimalpunkt enthält. 
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1001 rern- 

1002 rem titel: lineare regression 

1003 rem - 

1004 rem 

1007 rem - 

1008 rem te Id—Vereinbarungen: open 1,8 tuer input#: initialisierung 

1009 rem - 

1010 dimy<1,11>s rl=2s s1=6: gosub1720:priirtchr*<147>:open1,0 

1020 a$="X—Wert V-Wert":r«—2s s=9s gosub 1710: printa$ 

1030 m=0: n=x<1> 

1037 rem--— 

1038 rem eingabe—routine 

1039 rem —“- 

1040 m=m+l : it m>10 then 1160 

1050 r=m : s=0 : gosub 1710: pr i ntn+m ; lett$ < \$ , 30 > 

1060 s=10 : gosub 1710 : input# 1 - x$ : i tx$= " - " goto 1160 
1070 x=0 : gosub 1650 : i tx= 1 "then 1050 
1080 y < 0 r m > =yal < x$ > 

1090 s=20 : gosub 1710: pr i nt lett$ < 1$10 > : gosub 1710 
1100 i nput# 1x$ 

1110 x=0:gosub1650:itx=1then1090 
1120 y < 1 .r m > =ua 1 < x4 > 

1130 r=m : s=4 : gosub 1710: pr i nt lett$ < 1$ , 30 > : .j =m : gosub 1550 
1140 i=m: p=l:gosub 1620 »goto 1048 
1168 m=m—1 

1167 rem - 

1168 rem schalten—zeile : nur die eingaben t/w/k/e sind zugelassen 

1169 rem - 

1178 r=m : s=36 : gosub 1718: pr i nt" t/u»/k/e " + lett$ < 1$10 > ; : s=45: gosub 1718 : i nput# 1z$ 

1188 itz*= "e" then 1335 

1198 itz$= "t" then 1348 

1200 i tz$= "k" then 1268 

1218 itz$0"w" then 1178 

1217 rem - 

1218 rem mj = weiter* 

1219 rem - 

1220 s=36:gosub 1710: print lett4< 1$., 18> : it m<18 goto 1848 
1230 s=0 : for r= 11 to 8 step-1 : gosub 1718: pr i nt lett$ < 1$ .r 58 > : nextr 
1248 r=8 : s=8 : gosub 1718:pr i ntn+m : .j =m : gosub 1558 

1258 goto 1030 

1257 rem--- 

1258 rem k = korrigieren: eingabe einer werte-positionsnummer 

1259 rem - 

1268 r=m+1 : s=36 : gosub 1718 : pr i nt" Nr : " : i nput# 1, z$ : z= i nt < ua l < z$ > > 

1278 it z<=n or z>n+m then 1170 

1288 s=0:tor r=m+2 to z-n step-1: gosubl718: printlett$<l$,50>:nextr 

1298 p=—1 : tor i=z—n to m: gosub 1620: y<0, i > ss y<0 J p i + 1 > sy < 1 * i > s y< 1 r i + l > • nexti 

1308 p=l: tor j=z-n to m—l:it m-z+n=ü then 1320 

1318 i = j s gosub 1628 : r=_i : s=8: gosub 1718: pr i nt j +n: gosub 1550 
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1320 next ..i 
1330 m=m— 1 : goto 1170 

1332 rem - 

1333 rem e = ende: sch Hessen der Tastatur als datei: loeschen der anzeige 

1334 rem- 

1335 c lose 1 :print chr$< 147> :end 

1337 rem - 

1338 rem t = tertig: berechnung und ausgabe der statistischen groessen 

1339 rem - 

1340 n1=x <1> 

1350 a= < x < 6 >-<*< 2 > *x < 3 )/nl) > / < x < 4 > -x<2>*x<2> /n 1 > : y=a: z=2 : gosub 1580 : a=x 
1360 xm=x<2>/nl: ym=x<3>/nl 
1370 b=ym-a*xm:y=b:z=2:gosub1580:b=x 

1380 yx= < x < 4 > ~x < 2 > *x < 2 > /n 1 > / < r. 1 -1 > : yy= < x < 5 > -x < 3 > *x < 3 > /n 1 > / < n 1 -1 > 

1 390 kk=<x<6>-<x<2>*x<3>/n1>> 

1400 kk=kk/s«ir < < x < 4 > -x < 2 > #x < 2 > /n 1 >*< x < 5 > -x < 3 > *x < 3 > /n 1 > > 

1410 s=l :r=12 : gosub 1710: pr i nt" flnzah l Wertepaare " n 1 

1420 s= 1 : r = 13 : gosub 171 ö : pr i nt *' X-M i tte Uuert 

1430 y=xm : z=2 : gosub 158Ö : s=24 : gosub 1578 

1448 s=l :r=14 : oiosub 1718: pr i nt" V-M i tte Uuert " 

1458 y=ym : z=2 : oiosub 158Ö : s=24 : oiosub 1578 
1460 s= 1 :r=16: oiosub 1710 : pr i nt" X—Var i anz " 

1478 y=vx : z=2 : oiosub 1588 : s=24 : oiosub 1570 
1488 s= 1 : r= 17 : oiosub 1718: pr i nt" Y-Var i anz " 

1490 y='...»y : z=2 : oiosub 1588 : s=24 : oiosub 157Ö 
1508 s= 1:r=19: oiosub 1718: pr i nt" Kor re lat i onskoett. " 

1518 y=kk : z=4 : oiosub 1538 : s=24 : oiosub 1578 

1528 s= 1 : r=20 : oiosub 1718: pr i nt" Regress i ons-Kurve " ; lett$ •:! 1$28 > 

1530 s=21 :r=20 :oiosub 1718 :print"V = "a" # X + "b 
1540 goto 1170 

1547 rem - 

1548 rem Unterprogramm: ausgabe-routine fuer x/y-werte 

1549 rem --- 

1558 s=l 1 : i =0 : oiosub 1560 : s=26 : i = 1 : oiosub 1560 : return 

1560 x$=str$ •:! y < i , ,_i > > : gosub 1690 : s=s-k : gosub 1710 : pr i ntx$ : return 

1567 rem --- 

1568 rem Unterprogramm.: ausgabe-routi ne tuer statistik-werte 

1569 rem - 

1578 x$=str$<x >:gosub1698:s=s-k:gosub1718: printx$: return 

1577 rem - 

1578 rem Unterprogramm: rundungs—routine tuer Statistik—werte 

1579 rem - 

1588 x— i nt < y* 10:*z+. 5 > /10*ftz : return 

1617 rem - 

1618 rem Summenbildung : x.r y, xfcx., y*y, x'ty <p = 1 oder -1> 

1619 rem - 

1620 x<1>=x<1>+p*i :x < 2>=x<2>+p*y<0,i>:x<3>»x<3> +p*y<1,i> 

1630 x 4 > =x < 4 > +P* r- y <; 0 r i > *y < 0 , i > > : *< 5 > =x <5 > +p*< y < 1 r i > *y < 1 r i > > 

1640 x< 6 > =x < 6 > +pt < y < 0 i > fcy 1i > > : return 
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1647 

1648 

1649 

1650 
1660 
1670 

1687 

1688 

1689 

1690 
1700 

1707 

1708 

1709 

1710 

1717 

1718 

1719 

1720 
1730 
1740 


rem- 

rem Unterprogramm 3 ab frage nach guelfiger zah len-einga.be 


y$=x$ s if left^<x^.rl>0"-" then y$=" "+x$ 

if .-tr$<Mal(x$))0 y* fhenx=l 

return 


rem unf er Programm: auffindung des dezimalpunkf.es 
rem- 

for k= 1 fo len < > : i f " . " =m i d$ < x$k1 > thenreturn 
nexfk sk= len<!x$> + l :x$=x$+". " srefurn 


r 1 r sl .r r r S ) 


pr i nf " ü3" lef f $ < cu$r 1 +r > lef f $ < cr$ .r s 1 +s > ; s return 

rem-:- 

rem aufbau der zeichenkeffen fuer cursor-steuerung und loesch-zei le 
rem- 

l$=" " scu$="21" scr$="|J" :fori = ltc<7 scu$=cu$+cu$ :cr$=cr$+cr$ s lf = 1$+ 1$ :nexfi 

cu$= leffS<cuS.r25> scr$= leff$<cr$,80> : 1$= leff$< 1S,80> srefurn 

end 
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Mathematik 









Primzahlen 


Primzahlen gehören zu den natürlichen Zahlen (1, 2, 3 ... N) und haben die Ei¬ 
genschaft, daß sie nur durch 1 oder sich selber geteilt werden können. Primzah¬ 
len sind gewissermaßen die Bausteine aller natürlichen Zahlen, da sich jede 
Zahl als Produkt der Primzahlpotenzen zusammensetzt, die sich in die Zahl di¬ 
vidieren lassen. So entspricht die Zahl 60 beispielsweise dem Produkt 2 2 • 3 • 5. 

Primzahlen haben die Menschheit schon seit Jahrtausenden beschäftigt und es 
war Euklid, der bereits im dritten vorchristlichen Jahrhundert auf ebenso einfa¬ 
che wie elegante Art beweisen konnte, daß die Menge der Primzahlen unbe¬ 
grenzt ist. Bei Primzahlen interessieren erzeugende Funktionen (wie etwa die 
Eulersche Formel N = x 2 + x + 41, die unterschiedliche Primzahlen für x = 1, 
2, ... 39 erzeugt), Primzahlpaare (11, 13) und vieles mehr. 

Das Programm verwendet die Methode des Eratosthenes, um, ausgehend von 
den beiden bekannten Primzahlen 2 und 3, eine Tabelle von Primzahlen aufzu¬ 
bauen. Der Algorithmus macht von der Tatsache Gebrauch, daß eine Zahl N, 
die keine Primzahl ist, einen Divisor d hat, für den 1 <d — |/N gilt. 


Bedienungsanweisung 

1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. Programm starten (run RETURN drücken) 

3. Eingabeaufforderung 
Anzahl der Primzahlen 

4. Ausgabe 

Längste primzahlenlose Sequenz 
Primzahlen 

5. Programmende 
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Beispiel 


Anzahl Primzahlen (a > 1 und a< 6107)? 100 


Längste primzahlenlose Sequenz 523 - 541 : 17 Elemente 


2 

3 

5 

7 

11 

13 

17 

19 

23 

29 

31 

37 

41 

43 

47 

53 

59 

61 

67 

71 

73 

79 

83 

89 

97 

101 

103 

107 

109 

113 

127 

131 

137 

139 

149 

151 

157 

163 

167 

173 

179 

181 

191 

193 

197 

199 

211 

223 

227 

229 

233 

239 

241 

251 

257 

263 

269 

271 

277 

281 

283 

293 

307 

311 

313 

317 

331 

337 

347 

349 

353 

359 

367 

373 

379 

383 

389 

397 

401 

409 

419 

421 

431 

433 

439 

443 

449 

457 

461 

463 

467 

479 

487 

491 

499 

503 

509 

521 

523 

541 






Hinweise 

Mit dem Ausdruck 'int(fre(0)/5)—10' (120) wird der Speicherplatz berechnet, 
der für die Tabelle für die Primzahlen zur Verfügung steht. Die Funktion 'fre(O)' 
schreibt den freien Speicherplatz (in Byte) zurück und dieser Wert wird durch 5 
dividiert, da eine Gleitkommazahl 5 Byte belegt. Von diesem Ergebnis wird 
dann noch 10 subtrahiert, um etwas Programmspeicher in Reserve zu haben. 
Der frei verfügbare Speicher kann auch durch 2 geteilt werden, wenn Primzah¬ 
len als Ganzzahlen im Bereich 2 — 32767 erwünscht sind. 

Die Primzahlen werden mit den Anweisungen in 260 bis 290 in tabellarischer 
Form ausgedruckt. Diese Anweisungsfolge kann für alle Tabellen mit 'a' Ele¬ 
menten verwendet werden. Die Anzahl der Spalten wird mit 'b', der Abstand 
zwischen den Kolonnen mit dem ersten Teil des Arguments der SPC-Anweisung 
(280) festgelegt. 


94 


101 rem - 

102 rem tite l s Primzahlen 

103 rem - 

104 rem 

107 rem - 

108 rem 1Gesehen des bi Idschirms 

109 rem - 

110 print chr$<147> 

117 rem - 

118 r e rn e i n g ab e 

119 rem - 

128 print "Anzahl Primzahlen <a > 1 und a <" int<fre<8>/5>--10" > " .? 
130 ir.ru t a. 

137 rem - 

138 rem te Iduereinbarung s a.ufba.u der grundste l lung 

139 rem - 

140 dirr. b£a> :d=8 

150 b •:! 1 > =2 : j = 1 s n=3 

160 .j + 1 : b .j >=n s i f n-b < .j -1 > >d t-hen d=n-b < j -1 > s c=.i 
170 if .j=a t-hen 248 
188 n=n+2:k=l 

198 k=k +1 s ot= n/b < k > s i f g= i n t <! n/b <. k > > t hen 180 
280 if ctObCk) then 168 
210 goto 198 

237 rem - 

238 rem ausgäbe 

239 rem - 

240 print:print "Laengste primzahlenlose Sequenz ".? 

250 pr i nt b <. e-1 > " - " b < c > " : " b < c > -b < c-1 > — 1" E lemente " : pr i nt: pr i nt 
268 b=7:for i=l to a ster b+lsif i> a-b then b=a—i 
278 for .j = i to i+b 

280 rr i nt sre < 6- len < str$ < b < .j > > > > ; b < .j > ; s next .j 
298 rrint 8next i 
308 end 
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Flußdiagramm 

Berechnung der Primzahlen 



Zeile Anmerkungen 

150 Erste Primzahl ist 2 

Primzahlenzähler j 
Zweite Primzahl ist 3 


160 Nächste Primzahl 


Ermittlung der längsten 
primzahlenlosen Se¬ 
quenz (wird für die Be¬ 
rechnung der Primzahlen 
nicht benötigt) 

170 Gewünschte Anzahl von 

Primzahlen erreicht? 


180 Zu prüfende Zahl (n) um 

2 inkrementieren; k 
gleich 1 setzen 

190 k inkrementieren 

q = n/b(k) 


Abfrage, ob Rest gleich 
Null 


200 Abfrage, ob Rest < = 

b(k) 
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Nullstellenbestimmung nach Newton- 
Raphson 


In vielen Fällen lassen sich Gleichungen der Form 

f(x) = 0 

auf analytische Weise lösen. Wenn analytische Methoden nicht ausreichen, 
werden numerische Verfahren zur Bestimmung der Nullstellen einer Funktion 
verwendet. 


Die Methode von Newton-Raphson besteht darin, die Gleichung f(x) = 0 in die 
Form g(x) = x mit 


g(x) 


f(x) 

= X- 

fix) 


zu bringen. Mit dem Näherungswert p D wird dann eine Sequenz |P n ( nach dem 
Iterationsschema p n = g(p n _i) erzeugt. Diese Sequenz konvergiert zu dem Wert 
p = x und einer Lösung der Gleichung f(x) = 0, wenn f(p) = 0 und f(x) stetig in 
x = p ist. 


Bedienungsanweisung 

1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. f(x) und f'(x) definieren (siehe Anmerkung 1) 

3. Programm starten (run RETURN drücken) 

4. Eingabeaufforderungen 

Delta 

Iterationen 

Anfangswert 

durch entsprechende Eingaben beantworten 

5. Ausgabe 

Lösung gefunden (nach n Iterationen) 

Funktion hat eine Nullstelle bei x = xxxxx 
bzw. 

Keine Lösung gefunden (nach N Iterationen) 

6. Rückkehr zur nächsten Eingabe in Schritt 4 
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Anmerkungen 

1. Um mittels der Newton-Raphson-Methode eine Nullstelle einer Funktion 
ausfindig zu machen, muß sowohl die Funktion selber als auch ihre erste Ab¬ 
leitung bekannt sein. Die beiden Funktionen werden als f(x) und g(x) defi¬ 
niert. Dazu wird die Anweisung 'def fn' (hier in Zeilen 110 und 120) verwen¬ 
det. 

2. Mit 'Delta' wird die Genauigkeit der gesuchten Lösung festgelegt. Die Lö¬ 
sung (sofern eine existiert) wird bei größerem Delta u.U. schneller gefunden, 
hat dann aber vielleicht nicht die volle Genauigkeit. 

3. Mit 'Iterationen' wird ein oberer Grenzwert für die Anzahl der Iterationen an¬ 
gegeben. Damit wird vermieden, daß das Programm sich 'verabschiedet', 
wenn die Funktion nicht den Bedingungen für eine Lösung genügt. 

4. Wenn der Algorithmus nach der Eingabe von 'Anfangswert' eine Lösung fin¬ 
det, wird diese angezeigt und zur erneuten Eingabe zurückverzweigt, um ge¬ 
gebenenfalls mit anderen Anfangswerten weitere Nullstellen zu untersu¬ 
chen. 


Beispiel 1 

110 def fn f(x) = x*x — 4*x +3 
120 def fn g(x) = 2*x — 4 


Delta 

Iterationen 

Anfangswert 


? .000001 
? 100 
? -10 


Lösung gefunden (nach 8 Iterationen) 

Funktion f(x) hat eine Nullstelle bei x = .999999999 


Delta 

Iterationen 

Anfangswert 


? .000000000001 
? 100 

? 1000000000000 


Lösung gefunden (nach 46 Iterationen) 
Funktion f(x) hat eine Nullstelle bei x = 3 
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Beispiel 2 

110 def fn f(x) = tan(x) 

120 def fn g(x) = l/(cos(x) * cos(x)) 

Delta ? .000001 

Iterationen ? 10 

Anfangs wert ? 12 

Lösung gefunden (nach 4 Iterationen) 

Funktion f(x) hat eine Nullstelle bei x = 12.5663706 

Delta ? .000000000001 

Iterationen ? 10 

Anfangs wert ? 2.5 

Lösung gefunden (nach 5 Iterationen) 

Funktion f(x) hat eine Nullstelle bei x = 3.14159266 
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101 

102 

103 

104 
107 
103 
109 
1 10 
120 
130 

137 

138 

139 

140 

147 

148 

149 

150 
160 
170 

177 

178 

179 
130 


rem- 

rem tite 1 s nu l Iste l lenbestimmung nach newton-raphson 

rem- 

rem 

rem- 

rem detinition der -Punktion und ihrer ersten ableitung 

rem- 

det tn t<x> = x*x - 4*x +3 

det tn g<x> = 2*x - 4 

det tn h<x> = x - tn t<x>/tn g£x> 

rem- 

rem initialisierung des bildschirms: autrut der Programmbeschreibung 


rrint chr$<147>: gosub 250 


rem eingabe von genau igkeit., iterationen und 1- naeherungswertes 
rem- 

inrut" Delta. " ;dl 

input" Iterat ionen "; n© 
inpuf'flntangswert ";pl: n=0 


rem berechnung des naechsten naeherungswertes: inkrementierung von n 
rem- 

pÖ=pl : p 1 = tn h<p0> :n=n+l : it n=n0 then 230 


190 it dl < abs<p0-pl> then 180 

197 rem - 

193 rem ausgabe wenn dl < abs<p0-pl> 

199 rem - 

200 print:print "Loesung getunden <nach"n"Iterationen >" 

210 printsprint "Funktion t<x> hat eine Nullstelle bei x = "p0sprintsprint 
220 goto 150 

227 rem - 

228 rem ausgabe wenn n = nö 

229 rem - 

230 print:print "Keine Loesung getunden <nach"n©"Iterationen >" 

240 goto 150 

247 rem- 

248 rem programm-kurzbeschreibung 

249 rem - 

25© print "Um mittels der Newton-Raphson-Methode eine Nullstelle einer" 

260 print "Funktion austindig zu machen., muss sowohl die Funktion sei-" 

270 print "ber als auch ihre erste Ableitung bekannt sein. Die beiden" 

280 print "Funktionen werden als t<x> und g < x > detiniert. Daxu wird die" 
290 print "Anweisung "det tn' <hier in Zeilen 11© und 12© > verwendet." 

300 print:return 
31© end 


100 


















Flußdiagramm 

Berechnung des Näherungswertes 


Zeile 


Anmerkungen 



gefunden 


180 


190 


p0 = letzter Nähe¬ 
rungswert bzw. der vom 
Anwender eingegebene 
Anfangswert 


pl = fn h(pO) 


Iterationszähler inkre- 
mentieren 


Maximale Anzahl von 
Iterationen durchge¬ 
führt? 


Näherungswert mit ge¬ 
wünschter Genauigkeit? 
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Spiel- und Lehrprogramme 
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Wortrate-Spiel 


Das im Englischen unter dem Namen "Hangman" bekannte Spiel ist für wenig¬ 
stens zwei Spieler konzipiert. Ein Spieler gibt, ohne dabei von den anderen beob¬ 
achtet zu werden, ein Wort in den Rechner ein. Die anderen Spieler haben dann 
die Gelegenheit, das versteckte, in seiner Länge durch Bindestriche angezeigte 
Wort zu erraten. Mit jedem falschen oder bereits einmal erfolgreich eingesetzten 
Buchstaben wird der Bau eines zehnteiligen Galgens fortgesetzt. Nach zehn fal¬ 
schen Buchstaben werden die fehlenden Buchstaben in dem Wort eingesetzt. 
Der Rechner geht dann an den Spielanfang zurück. Bei einem Treffer werden al¬ 
le Bindestriche, die für den Buchstaben stehen, durch diesen ersetzt. Das Spiel 
gewinnt an Reiz, wenn die Eingaben auf bestimmte Themen, historische Per¬ 
sönlichkeiten oder Fremdwörter beschränkt werden. 


Bedienungsanweisung 

1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. Programm starten (run RETURN drücken) 

3. Eingabe des Rätselwortes. Der Rechner akzeptiert nur Buchstaben des lateini¬ 
schen Alphabets, um Wörter bis zu einer Länge von 10 Zeichen aufzubauen. 
Bei kürzeren Wörtern muß die Eingabe durch ein RETURN abgeschlossen 
werden. Für jeden eingegebenen Buchstaben erscheint auf dem Bildschirm 
ein Bindestrich. Die Anzahl der Bindestriche zeigt somit die Länge des Rät¬ 
selwortes an. 

4. Suche nach dem Rätselwort 

a. Eingabe eines im Wort enthaltenen Buchstabens 

Der gefundene Buchstabe ersetzt alle Bindestriche, die für ihn im Rätselwort 
stehen. Der Buchstabe wird danach gesperrt, d. h. er wird fortan als nicht im 
Wort enthalten betrachtet. 

b. Eingabe eines nicht im Wort enthaltenen Buchstabens 

Der Buchstabe wird als ungültig ausgegeben und der Galgen um ein Stück 
weiter gebaut. 

5. Bei erfolgreicher Suche erscheint die Meldung "Gerettet", andernfalls die 
Meldungen "Gehangen", wobei die noch fehlenden Buchstaben im Rätsel¬ 
wort eingefügt werden. 

6. Rückkehr zur Eingabe des nächsten Rätselwortes in Schritt 3 
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Anmerkungen 

1. Für die Ausgabe des Piktogramms (Galgen mit Pendant) werden zwei Unter¬ 
programme verwendet, deren Wirkung durch eine DATA-Liste gesteuert 
wird. Die Liste besteht aus: 

a. Unterprogrammnummer (für die ON ... GOSUB-Anweisung) 

b. X-Koordinate 

c. Y-Koordinate 

d. Wiederholungsfaktor für das auszugebende Zeichen 

e. Zeichen, das n-mal ab (X,Y) auf den Bildschirm ausgegeben werden soll 

Die Unterprogrammnummer bestimmt, ob die Ausgabe in der vertikalen 
oder horizontalen Richtung erfolgt. 

2. Für die Cursor-Steuerung wird die POKE-Methode verwendet. Dazu wird 
Zelle 216 mit der Reihennummer und Zelle 198 mit der Spaltennummer gela¬ 
den. 


Hinweise 

1. Bei der Eingabe des Rätselwortes werden alle nicht alphabetischen Eingaben 
abgewiesen (270). 
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H E H K E R 


1 

I 


I 

IS 

I 


|o y -fc h a. *i o r a. s 


Gerettet: 


IJ n <j u e 11 i g e B u c h s t ab e n : 


i u n m t k 


H E N K E R 



R H 1 

I » 

1 81 


I* h 1 e -3 m a. G e h a. n 3 e n 

Ungue Itige Buchstaben: i o u n b d r o k s 
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101 rew» 


102 rem ujor 


iel 


103 rem 


104 rem 

107 rem - 

108 rem autbau der data-1 i ste 

109 rem - 

110 data 1 .,40,2,10.e229 
120 data 2..40,3,6,227 
130 data 2.,32., 13, 15.,227 
148 data 1 .,47,2.,2.,229 
150 data 2,45,5,2,230 
160 data 1,47,5,3,225 
170 data 2,42,6,3,249 
180 data 2,47,6,3,249 
190 data 1,46,7,3,225 
200 data 1,48,7,3,225 
210 printchr$ <147 > 

220 restore:s=8sr=3sgosub 1000 sprint"H ENKE R" 
227 rem - 


229 rem - 

230 r=14:k=10:tori=1to10 
240 gety$sity$=" "then 240 
250 i t i = 1 thenrr i r.tchr* < 147 > 

260 itasc < y$) = 13thenk=i-1si = 10 sgoto 290 
270 itasc <y$> >98orasc <y $ > <65then 240 
280 s=i*2+6:gosub1 000 :y1$ <i>=y*:print"-" 

290 nexti 

297 rem - 

298 rem eingabe-schleite tuer buchstaben 

299 rem- : - 

300 u=0:t=k 

310 y=t:gety$:ity$=""then 310 

320 itasc<y$>>90orasc<y$><65ther. 310 

330 tor j = 1 tok s i ty$=y 1 % < j > then gosub 500 : t=t-1 : y 1 $ < ..i } = "* " 

340 next.j s i t vOt then 390 

347 rem - 

348 rem read-anweisung bei ungueltigem buchstaben 

349 rem - 

350 read a,x,y,n,z:u=u+1 
360 on a gosub 800,900 

370 r= 16 s s=8 : gosub 1008 : pr i nt" üngue lt i ge Buchstaben:" 

388 s=u*2+31sgosub 1888sprinty* 

387 rem - 

388 rem bei t=8 sind alle buchstaben gefunden 

389 rem - 

398 it t=8 then s=33:r=14:gosub 1808iprinf'G e r e t t e t"sgoto 228 
480 it u<10 then 318 
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407 rem - 

408 rem bei u=10 ist das spiel ver loren 

409 rem - 

410 tor .j = l to k:gosub 508: next j 

420 s=33 :r=14 :gosub 1000 :print"G e h a. n g e n" sgoto 228 

497 rem - 

498 rem Unterprogramm s ausgabe von buchstaben 

499 rem - 

588 r = 14 : s=J #2+6 : gosub 1888 s i ty 1 $ < .j > <> " # " then pr i nty 1 $ < .j > 

518 return 

797 rem - 

798 rem Unterprogramme tuer die ausgäbe des Piktogramms 

799 rem - 

888 r=y s s=x: gosub 1888 : tor 1=1 ton s r=y+ l: gosub 1888 s pr i ntchr♦ < z > : next l s return 
988 r=y:s=x s gosub1888:tor 1=1ton:s=x+l:gosub1888 s printchr $<2 >s nextl:return 

997 rem - 

998 rem Unterprogramm tuer die Cursor — Steuerung 

999 rem - 

1888 poke216 .r r s pr i nt" £3" : poke 198 , s : return 

1818 end 
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Flußdiagramm 

Überprüfung der Eingabe 


Zeile 

310 



Buchstabe 

richtig 


Anmerkungen 
v = Anzahl der gesuch¬ 
ten Buchstaben 
Zeichen von der Tasta¬ 
tur einiesen (y$) 


Leere Eingabe? 


320 Alphabetisches Zeichen? 


330 Wort enthält k Buchsta¬ 

ben 


Buchstabe in Rätselwort? 


Unterprogramm in Zeile 
500 aufrufen (Ausgabe 
des Buchstaben im Rät¬ 
selwort) 


t dekrementieren 
Gefundenen Buchstaben 
durch ' ★' ersetzen 


340 


Buchstabe in Rätselwort? 
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Bagels 


Das Programm "Bagels" ist eine der ersten Versionen des heute unter der Be¬ 
zeichnung "Master-Mind" bekannten und zurecht beliebten Code-Knacker- 
Spiels. Mit einer festen Länge von drei Ziffern ohne Wiederholungen stellt Ba¬ 
gels die vielleicht optimale Form des Spiels dar. Die Ergebnisse einer Spielserie 
werden summiert und nach jedem Spiel als kurze Statistik ausgegeben. Nach 
neun erfolglosen Versuchen bricht der Rechner das Spiel ab, das dann auch mit 
neun bewertet wird. Der Durchschnitt für einen guten Spieler sollte um fünf 
Versuche pro Spiel liegen. 

Der Rechner bedient sich folgender Kommentare, um den Spieler in der Suche 
nach der versteckten Zahl zu unterstützen: 


bagels 

pico 

pico-pico 

pico-pico-pico 

fermi 

fermi-fermi 

pico-fermi 

pico-pico-fermi 


— alle Ziffern falsch 

— eine Ziffer richtig, aber an falscher Stelle 

— zwei Ziffern richtig, beide an falscher Stelle 

— drei Ziffern richtig, alle an falscher Stelle 

— eine Ziffer richtig und an richtiger Stelle 

— zwei Ziffern richtig, beide an richtiger Stelle 

— zwei Ziffern richtig, eine an richtiger und eine an falscher 
Stelle 

— drei Ziffern richtig, eine an richtiger und zwei an falscher 
Stelle 


Bei Ziffernwiederholungen erscheint die Meldung "Keine Wiederholungen". Ei¬ 
ne ungültige Eingabe dieser Art wird nicht als Versuch gewertet. 

Erfolg wird unterschiedlich belohnt. Der Spieler erhält den Text: 


Pfiffikus 
Nicht schlecht 
Also doch 
Na endlich 
Kaum zu glauben 
Eins vor Zwölf 


— bei vier oder weniger Versuchen 

— bei fünf Versuchen 

— bei sechs Versuchen 

— bei sieben Versuchen 

— bei acht Versuchen 

— bei neun Versuchen 


Beim neunten (und erfolglosen) Versuch wird der Rechner ungehalten und 
bricht das Spiel mit dem Kommentar "Wieder nicht — jetzt reicht's aber" ab. 
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Bedienungsanweisung 

1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. Programm starten (run RETURN drücken) 

3. Ausgabe der Programm-Kurzbeschreibung 

4. Eingabe einer dreistelligen Zahl 

5. Kommentar des Rechners zu der eingegebenen Zahl 

Wiederholung der Schritte 4 und 5, bis die gesuchte Zahl gefunden ist oder 
neun Versuche erfolgt sind 

6. Ausgabe der Statistiken: Anzahl Spiele 

Anzahl Versuche/Spiel 

7. Rückkehr zur nächsten Eingabe in Schritt 4 oder Programmabbruch mit 
STOP 


Anmerkungen 

1. Im Programm wird die POKE-Methode für die Cursor-Steuerung eingesetzt. 
Dazu wird Zelle 216 mit der Reihennummer und Zelle 198 mit der Spalten¬ 
nummer geladen. 

2. Die "versteckte" Zahl wird mit der RND-Funktion des Rechners erzeugt und 
in drei Ganzzahlen zerlegt. Die Zufälligkeit der Zahl (wichtig in diesem 
Spiel) wird dadurch verbessert (gegenüber der Methode, drei einstellige Ganz¬ 
zahlen mit der RND-Funktion zu erzeugen). 

3. Zur Übernahme der Zahl des Spielers wird die GET-Funktion verwendet. Da 
GET zeichenweise arbeitet, ist auch die Versuchszahl schon in einer Form, 
die die erforderlichen Abfragen und Überprüfungen unterstützt. 

4. Das Programm benutzt für den Kommentar des Rechners einen errechneten 
Textzugriff. Ein Zähler wird anfangs auf Null gesetzt und dann für jedes "Pi¬ 
co" um 1 und jedes "Fermi" um 4 erhöht. Damit ergibt sich für jede mögli¬ 
che Antwort des Rechners eine andere Zahl im Bereich 0 bis 8. Da es keine 
Pico-Fermi-Kombination gibt, die sich auf 7 summiert, wird diese Textposi¬ 
tion für "Keine Wiederholungen" verwendet. 
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Beispiele 

258 Fermi 
269 Fermi-Fermi 
149 Fermi 
307 Pico 
239 Fermi-Fermi 
279 Also doch 

Anzahl Spiele 1 
Anzahl Versuche/Spiel 6 

852 Bagels 

963 Fermi 

941 Pico 

467 Pico-Fermi 

064 Nicht schlecht 

Anzahl Spiele 2 
Anzahl Versuche/Spiel 5.5 


Hinweise 

1. Die RND-Funktion wird verwendet, um eine dreistellige Zahl zu generieren 
(190). 
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101 rem - 

102 rem titel: beweis 

103 rem - 

104 rem 

107 rem--- 

108 rem teId-uereinbarunger.: bi Idschirm-ausgaber.: initialisierur.g 

109 rem - 

110 d i m x <. 3 > .r y <3>.rZ< 3> t$ < 16 > :pr i rr t chr$ (. 14? > s gosub 1000 : n 1 =0 s r.2=0 

117 rem - 

118 rem text-det i n i t i onen 

119 rem - 

120 t$<16>=" 

130 t$ <0 > = "Bage Is" : t$ <1> = "Pico":t$<2 > = " P ico-Pico":t$<3 > = "Pico-Pico-Pico" 

140 t$ < 4 > = " Ferm i " : t$ < 5 > = " P i co-Ferm i " : t$ < 6 > = " P i co-P i co-Ferm i " 

150 t$C7> = "Keine Wiederho lungen" st$<8> = "Fermi-Fermi " : t$<9> = "Ptittikus" 

160 t$ < 10 > = " N i cht sch lecht" : t$ < 11 > = " n Iso doch " : t$ < 12 > = " Ha end l i ch " 

170 t$ <13 > = " Kaum zu g lauben ":t$ <14 > = "Ei ns vor Zwo© It " 

180 t$< 15> —"Wieder nicht - .jetzt reicht's aber" 

187 rem - 

189 rem - 

198 n=0 sx<0> = int < rr.d <0>* 1000>:x <1>=int <x <0>/100> s x <2 > = i nt < <x <0> -x< 1 >* 100> /10 :> 
200 x <3 > =x< 0 >-x <1> *100—x<2 > *1 0 

210 tor i = 1 to3 s y < i > =x < i > : next i : gosub400 s i tp 08 ther. 190 

220 n=n+l 

230 tori=1 to 3 

240 gety*:ity*="" ther. 240 

250 itz<>7 ther. 270 

260 gosub 450sprintt*<16> 

270 it r.= lar.di = l ther. pr int chr$( 147>; 

288 it asc< y$> >57orasc<y$><48 ther. 240 
290 gosub450 : pr i r.ty % ; s y < i )=va 1 <y$ > : next i 
300 gosub 400sz=7sitpO0 ther. 340 
310 z=0:. i 1 = 1s j2=2:j 3=3:gosub 420 
320 .j 1 =2 s j 2=3 s J 3= 1 s gosub 420 

330 j1=3:J 2=1:j 3=2s gosub 420sitz>8orn>8 goto 360 
340 print" "+t$<z>;:itz<>7 goto 220 
350 goto 230 

360 m=n-<z012) :it n<5 ther. rn=4 
370 print" "+t$<m+5> 

380 r.l=nl + l sr.2=n2+n 

390 n=n+2:i=5:gosub 450s print"flnzah l 8pie le "n1 

395 n=r.+ l s i=5 : gosub 450 Sprint "flnzah 1 Versuche/Spie l "r.2/r.l sgoto 190 

397 rem - 

398 rem Unterprogramm zur erkennung von zi tter-wi eder ho lur.gen 

399 rem-*■--- 

400 p=0 : i ty < 1 > =y < 2 > ory < 1 > =y < 3> ory < 2 > =y < 3 > ther.p= 1 
410 return 

417 rem - 
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4 IS rem Unterprogramm zur berechnung des ergehniswertes der eingabezah 1. 

419 rem - 

420 i t x < .j 1 > —y < .j 2 > orx •:! j 1 > ~y < .j 3 > thenz=z+1 
430 i tx < .i 1 > =y< .j 1 > thenz=z+4 

44Ö return 


448 rem Unterprogramm zur Positionierung des Cursors 

449 rem - 

450 poke216., 8+n : pr i nt" J3" : pokel 98., 30+ i : return 
500 end 

997 rem - 

998 rem programm-beschreibung - a.us gäbe au HP dem bi Idschirm 

999 rem - 

1000 print"Eine vom Rechner erzeugte., dreistellige Zah l ist zu erraten." 

101 ö pr i nt" 2 i ffernu.i i ederho lungen - etwa 233 - s i nd n i cht er laubt. Der Rechner " 
1020 pr int" g i bt nach .jeder Eingabe fiuskuritt, inuiie-Pern die eingegebene Zahl" 
1030 prinfmit der vom Rechner erzeugten Zahl uebereinstimmt. Dabei gilt:" 

1040 printsprint" bageIs - alle Zittern talsch" 

1050 print" pico - eine Zitter richtig., aber an talscher Stelle" 

1060 print" termi - eine Zitter richtig und an richtiger Stelle" 

1070 print s print"Beispie l:":print:print 

1075 prinf'Die 'versteckte' Zahl 216 des Rechners" 

1080 print" und Ihre Eingabe 261"sprint 

1090 pr-int "ergeben die Meldung r pico-pico-termi ■" weil 6 und 1 zwar- in der" 

1100 print "Zahl enthalten sind., aber an talscher Stelle stehen, waehrend die" 

1110 print"Zitter 2 auch noch an der richtigen Stelle steht. Ein Spiel wird" 

1111 print"nach neun erto lg losen Versuchen abgebrochen. Das Programm wird" 

1120 print"mit der Taste RUM/STOP beendet." 

1130 retur n:end 
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Matrix-Lehrgang 


Eine der leistungsfähigsten und damit wichtigsten Basic-Anweisungen ist die 
DIM-Anweisung, die dazu dient, Felder (auch Arrays oder Matrizen genannt) zu 
definieren. Das vorliegende Programm veranschaulicht das Konzept einer Ma¬ 
trix. 

Der Anwender gibt in Antwort auf die Eingabeaufforderungen des Rechners die 
Dimension der Matrix als r Reihen mal s Spalten ein. Danach wird die Matrix 
auf dem Bildschirm ausgegeben, wobei in Anlehnung an die DIM-Anweisung 
bei der Numerierung der Reihen und Spalten bei Null begonnen wird. 

Zu Beginn sind alle Elemente der Matrix auf Null gesetzt. Durch Eingabe einer 
Reihen- und Spaltennummer kann jeder Wert in der Matrix verändert werden, 
wobei die neue Belegung sofort auf dem Bildschirm angezeigt wird. 


Bedienungsanweisung 

1. Programm laden (von Kassette, Diskette oder über Tastatur) 

2. Programm starten (run RETURN drücken) 

3. Eingabeaufforderungen: 

Anzahl Reihen: 

Anzahl Spalten: 

durch entsprechende Eingaben beantworten 

4. Ausdruck der (leeren) Matrix 

5. Eingabeaufforderungen: 

r, s, A (r, s) 

durch entsprechende Eingabe beantworten 

6. Ausgabe des mit (r, s) angesteuerten Elements der Matrix 

7. Rückkehr zur nächsten Eingabe in Schritt 5 
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Anmerkungen 

1. Damit bei der Ausgabe der Matrix keine Bildverschiebungen passieren, ist die 
Anzahl der Spalten auf 12 und die der Reihen auf 14 zu beschränken. Für die 
Werte der einzelnen Elemente seien Ganzzahlen im Bereich 0 bis 9999 zu 
verwenden. 

2. Das Programm verwendet einfache Schleifenmethoden, um die Position ei¬ 
nes Elements auf dem Bildschirm anzusteuem. Bezugspunkt ist die obere lin¬ 
ke Bildschirmecke, die mit chr$(147) erreicht wird, bzw. die erste Reihe der 
Matrix, die immer die gleiche Entfernung zur oberen Bildschirmkante ein¬ 
hält. 


Beispiel 


Anzahl Reihen: ? 10 
Anzahl Spalten: ? 12 

S S S S 

0 12 3 

R0 11 0 0 0 

RIO 22 0 0 

R 2 0 0 33 0 

R 3 0 0 0 44 

R4 0 0 0 0 

R5 0 0 0 0 

R6 0 0 0 0 

R7 0 0 0 0 

R8 0 0 0 0 

R9 0 0 0 0 

R 10 0 0 0 0 


S S S S S 

4 5 6 7 8 

0 0 0 0 0 

0 0 0 0 0 

0 0 0 0 0 

0 0 0 0 0 

55 0 0 0 0 

0 66 0 0 0 

0 0 77 0 0 

0 0 0 88 0 

0 0 0 0 99 

0 0 0 0 0 

0 0 0 0 0 


S S S S 

9 10 11 12 

0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

0 0 0 0 

100 0 0 0 

0 111 0 9999 


r, s, A (r, s)? 10, 12, 9999 
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101 rem-— 

102 rem t itel: ma.tr ix- lehrgang 

103 rem - 

104 rem 

107 rem - 

108 rem initialisierung s eingatoe der anzah 1 reihen und spalten 

109 rem - 

110 pr i ntchr $■< 147> : d i ma< 20, 28 > 

128 i nput" Rnzah 1 Re i hen : " r 

130 input"Rnzeh1 Spalten: ":s 
140 itr>14ors>12 then 120 

158 print s print 
168 tor._i=0 to s 

167 rem - 

168 rem ausgabe der spalten-beschri ttung 

169 rem - 

170 pr i nttab < .j *5+6 > s "S " ; : next.j : pr i nt 
138 tor.j =8 to s 

198 pr i nttab •:! j *5+6 > ; m i d$ str$ < .j > , 2 > : next.j : pr i nt: pr i nt 

197 rem - 

198 rem ausgäbe der reihen-beschrittung: ausgäbe der te tde lemente 

199 rem - 

208 tori=0 to r 

210 tor.j =8 to s:it ,j=8 thenprinf'R ";mid$Cstr$(i>,2>; 

220 pr i nttab •:! .j *5+5 > ; aX rs > ? 

238 next.j Sprint 
248 nextiSprint 

247 rem - 

248 rem eingabe der element-position >■'.r rs> und des wertes (a(r.,s)) 

249 rem - 

258 input"r r s r R<rs> " x y r z : itx=Crandy=<s then 278 


258 rem teh lerme Idung: r oder s > arizah 1 reihen oder spalten 

259 rem - 

260 print"Eingabeteh ler":print" MgW " : goto 258 

267 rem - 

268 rem berechnung der biIdschirm-position bei legaler rrS-eingabe 

269 rem - 

270 print" "chr$<19> 

275 tor i =0to6+x s pr i nt" 21" ; : next i 

288 pr i nttab < y*5+5 > ; " ÄtSKI" z : a< x r y > =z 

287 rem - 

288 rem berechnung der biIdschirm-position tuer erneute eingabe 

289 rem - 

298 tori = l to r-x+1 sprint"21" ; snexti :goto 258 

380 end 
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BASIC 

ohne Probleme 

Bond 2: Übungen 



Dieses Übungsbuch ist die Ergän¬ 
zung zu dem im gleichen Verlag 
erschienenen Lehrbuch »BASIC 
ohne Probleme/Band 1: Unter¬ 
weisung« Es enthält 20 Routinen 
und Progiamme, die vor allem 
den Anfänger in der Programmie¬ 
rung unterstützen sollen, so rasch 
wie möglich seinen Rechner er¬ 
folgreich zum Einsatz zu bringen. 


Die Programme setzen sich aus ei¬ 
ner Beschreibung, Bedienungsan¬ 
weisungen, Beispielen, Anmer¬ 
kungen und reichlich mit Kom¬ 
mentaren versehenen Programm¬ 
protokollen zusammen. Die In¬ 
formation wird, sofern sinnvoll 
und erforderlich, durch Tips, Er¬ 
läuterungen und Flußdiagramme 
ergänzt. Die Programme haben in 
erster Linie die Aufgabe, allgemei¬ 
ne Programmiertechniken zu ver¬ 
anschaulichen. Daher wurde auf 
besondere, wenn auch gewinn¬ 
bringende Tricks und Techniken 
in dieser Sammlung verzichtet. 

Die Betonung liegt vielmehr auf 
den alltäglichen und daher beson¬ 
ders wichtigen Problemen in der 
Programmierung: Die Behand¬ 
lung und Verarbeitung von Einga¬ 
bedaten, die Steuerung des Cur¬ 
sors, die Verwendung von Unter¬ 
programmen und die Program¬ 
mierung von Fehlerausgängen. 


Die Programme in diesem Buch 
sind in fünf Rubriken unterteilt: 
drei allgemeine Routinen, die 
auch in anderen Programmen zur 
Anwendung kommen, fünf allge¬ 
meine Programme, fünf kommer¬ 
ziell-technische Anwendungen 
(Preiskalkulation, Fakturierung, 
optimale Bestellmenge, Zinses¬ 
zins-Rechnung) zwei Statistikpro¬ 
gramme, zwei Mathematikpro¬ 
gramme und drei (hoffentlich 
spannende) Lehr- und Spielpro¬ 
gramme. Alle Programme können 
direkt in einen cbm-Rechner Mo¬ 
dell 8032 eingegeben und gestartet 
werden. Für andere Rechner sind 
fallweise Anpassungen vorzuneh¬ 
men. 


Mfflkt lechnik Verlagsgesellschaft mbH 
ISBN 3-922120-26-1 







